Question

Записать в массив 30 случайных целых чисел от 1 до 12 и вычислить произведения тех элементов, значение которых кратны 3. паскаль

Answer 1

Const
N=30;
varA:array [1..N] of integer;
i,k,g:integer;
begin
g:=1;
Writeln('Введите массив');
For i:=1 to n do
begin
A[i]:=Random(13);
writeln('A[',i,']=',A[i]);
if (A[i] mod 3=0) and (A[i]<>0) then
begin k:=1; g:=g*A[i]; end;
end;
if k=1 then Writeln(g)
else writeln('Нету чисел, кратных трем.')
end.