Паскаль!! Срочно!!!!!
Использовать обязательно цикл while!!
Сначала создать массив из 10 случайных чисел в диапазоне от 1 до 100. Вывести все элементы массива. Затем запросить число и вывести все элементы массива, не превышающие это число.
Как можно скорее, пожалуйста!
Использовать обязательно цикл while!!
Сначала создать массив из 10 случайных чисел в диапазоне от 1 до 100. Вывести все элементы массива. Затем запросить число и вывести все элементы массива, не превышающие это число.
Как можно скорее, пожалуйста!
Answers & Comments
Ответ:
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.