Question

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

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

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

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

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

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

Answer 1

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.