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

Question

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

Comments

В таком случае все числа будут равны -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.

Comments

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

---

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