информатика
Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a Язык Паскаль желательно побыстрее
Оставить ответОтвет №1
Var i, a: integer;
x: array[1..15] of integer;
begin
write('Введите a: '); readln(a);
write('Массив: ');
for i := 1 to 15 do begin
x[i] := random(20);
write(x[i], ' ');
end;
write(#10, 'Элементы < a: ');
for i := 1 to 15 do if(x[i] < a) then write(x[i], ' ');
end.
Знаете ответ?