заменить все отрицательные элементы массива нулями

Question

Информатика

Лаврюха

30 декабря, 05:33

заменить все отрицательные элементы массива нулями

+5

Ответы (1)

Знаешь ответ?

Северьян · Answer 1

Const

n=10;

var

a:array[1 ... n]of integer;

i:integer;

begin

for i:=1 to n do

begin

a[i]:=random (100) - 50;

write (a[i]:4);

if a[i]<0 then

a[i]:=0;

end;

writeln;

for i:=1 to n do

write (a[i]:4);

end.