Составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и...

Question

Составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит в этом массиве индексы элементов значения которых кратны трём

Answer 1

Uses crt;
var a: array [1..16] of integer;   
i,kn,kk: integer;
begin
writeln('Дан массив');
for i:=1 to 16 do   
begin   
a[i]:=random(41)-20;   
write(a[i]:4);   
end;
writeln;
writeln('Индексы кратных 3 ');
for i:=1 to 16 do   
if a[i] mod 3=0 then
write(i:4);
end.