Определить и программно заполнить одномерный массив, состоящий из 10 элементов. вычислить количество элементов массива, принадлежащих промежутку от a до b, которые затрагиваются у пользователя, результат вывести на экран.

Question

Информатика

Геронтий

18 марта, 20:11

Определить и программно заполнить одномерный массив, состоящий из 10 элементов. вычислить количество элементов массива, принадлежащих промежутку от a до b, которые затрагиваются у пользователя, результат вывести на экран.

+5

Ответы (1)

Знаете ответ?

Мишуля · Answer 1

Const n = 10;

var a, b, i, k : integer;

mas : array[1 ... n] of integer;

Begin

read (a, b) ;

randomize () ;

k : = 0;

for i : = 1 to n do begin

mas[i] : = random (50) ;

if (mas[i] > = a) and (mas[i] < = b) then

k : = k + 1;

end;

writeln (k) ;

End.