Question

Помогите пожалуйста решить
найти произведение и кол-во одномерного массива НЕ кратных числу 3

Answer 1

Предположим, что массив задан случайно и нам требуется найти количество элементов массива, которые не кратны 3 и их произведение (ваша формулировка задания немного неоднозначна)

var

a:array [0..20] of integer;

count,sum,i:integer;

begin

randomize;

for i:=1 to 20 do

begin

a[i]:=random(100);

if a[i] mod 3 <>0 then

begin

sum:=sum+a[i];

count:=count+1;

end;

end;

writeln('Изначальный массив: ', a);

writeln('Сумма элементов, не кратных 3: ', sum);

writeln('Количество элементов не кратных 3: ', count);

end.