паскаль. заполнить массив случайными числами от - 20 до 20. вывести на экран. все отрицательные числа заменить на 5

Question

Информатика

Валерьич

21 сентября, 05:46

паскаль. заполнить массив случайными числами от - 20 до 20. вывести на экран. все отрицательные числа заменить на 5

+4

Ответы (1)

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

Зинуля · Answer 1

Program chik;

var a:array[1 ... 1000]of integer;

i, n:integer;

begin

readln (n) ;

randomize;

for i:=1 to n do

begin

a[i]:=random (41) - 20;

if (a[i]<0) then a[i]:=5;

end;

for i:=1 to n do

write (a[i],' ') ;

end.