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

AVlone AVlone    2   14.09.2019 04:00    1

Ответы
stalker1897ox9hzs stalker1897ox9hzs  07.10.2020 13:21
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика