Question

Паскаль!! Срочно!!!!!
Использовать обязательно цикл while!!
Сначала создать массив из 10 случайных чисел в диапазоне от 1 до 100. Вывести все элементы массива. Затем запросить число и вывести все элементы массива, не превышающие это число.
Как можно скорее, пожалуйста!

Answer 1

Ответ:

var

a: array [1..10] of integer;

i, t: integer;

begin

for i:= 1 to 10 do

 a[i]:= random(100);

readln(t);

for i:= 1 to 10 do

begin

 if a[i] < t then writeln(a[i]);

 end;

end.