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

Question

Информатика

Тасюта

2 июля, 04:50

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

+3

Ответы (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.