Question

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

Answer 1

var

d:array [1..14] of integer;

a:integer;

begin

for a:=1 to 14 do begin

d[a]:=random(32)-7;

if d[a] mod 5=0 then d[a]:=0;

end;

end.