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

Question

Информатика

Ефимья

13 декабря, 12:22

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

+4

Ответы (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.