Составьте программу, которая формирует массив d из 14 случайных чисел, принадлежащих промежутку от -7 до 25 и заменяет числа, кратные 5ти на 0♡
Вывод элементов нужен?
нет, просто сама программа
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.