Заполнить одномерный массив размерности N случайными числами. Подсчитать сколько элементов массива меньше X. Вывести на экран исходный и количество элементов массива меньше X.

Question

Информатика

Марин

2 марта, 22:08

Заполнить одномерный массив размерности N случайными числами. Подсчитать сколько элементов массива меньше X. Вывести на экран исходный и количество элементов массива меньше X.

+4

Ответы (1)

Знаете ответ на вопрос?

Катюра · Answer 1

Var ar:array of integer;

i, x, k, n:integer;

begin;

randomize;

readln (n) ;

setlength (ar, n+1) ;

readln (x) ;

writeln ('First array:') ;

for i:=1 to n do

begin;

ar[i]:=random (10,99) ;

write (ar[i]:4) ;

if ar[i]
end;

writeln;

writeln ('Result:', k) ;

end.