Составить программу, которая формирует массив из 12 случайных чисел, принадлежащих промежутку от 0 до 50 и заменяет положительные числа на - 5

Question

Шушаника

19 января, 15:28

+1

Ответы (1)

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

Нинуля · Answer 1

Var

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

b:integer;

Begin

for b:=1 to 12 do begin

a[b]:=random (51) ;

if a[b]0 then a[b]:=-5;

end;

End.