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

0 голосов
50 просмотров

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


Информатика (12 баллов) | 50 просмотров
0

Вывод элементов нужен?

0

нет, просто сама программа

Дан 1 ответ
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.

(609 баллов)