Question

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

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.

Answer 2

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;
for b:=1 to 12 do writeln(a[b]);
End.

Answer 3

может так правельнее

Answer 4

Делай как хочешь, смысл один и тот же