Вывести на печать положительные элементы массива x1,x2....x100
Вывести на печать положительные элементы массива x1,x2....x100
Гость
Ответ(ы) на вопрос:
Гостьvar
x: array [1..100] of real;
i: byte;
begin
for i := 1 to 100 do
begin
x[i] := random(3) - 1;
write(x[i]: 5);
end;
writeln();
for i := 1 to 100 do
if (x[i] > 0) then
writeln(x[i]);
end.
Не нашли ответ?
Похожие вопросы