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

Question

Информатика

Аксюха

18 января, 17:20

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

+4

Ответы (1)

Знаете ответ на вопрос?

Артемей · 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.