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

б) находит индексы четных элементов;

в) подсчитывает кол-во отрицательных элементов;

г) Определяет, есть ли в этом массиве хотя бы одно число, кратное трем;

д) находит в этом массивеиндексы элементов, значения которых кратны трем;

Помогите, пожалуйста

Const n=16; minr=-20; maxr=20;
var a:array[1..n] of integer; k,i:integer; t:boolean;
begin
for i:=1 to n do begin a[i]:=random(maxr-minr+1)+minr; write(a[i], ) end;
writeln;
k:=0;
for i:=1 to n do begin if (a[i] mod 2=0) and (a[i]<>0) then write(i, ); if a[i]<0 then k:=k+1 end;
writeln;
writeln(k);
t:=false;
for i:=1 to n do if (a[i] mod 3=0) and (a[i]<>0) then begin if t=false then begin writeln(true); t:=true end; write(i, ) end;
if t=false then writeln(false)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.