Вывести на печать положительные элементы массива x1, x2 ... x100

Question

Информатика

Славуха

18 ноября, 22:05

Вывести на печать положительные элементы массива x1, x2 ... x100

+3

Ответы (1)

Знаете ответ на вопрос?

Ульяша · Answer 1

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.