Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.