с клавиатуры вводятся 10 чиселю найдите произведения делящихся среди них на 3. программа,помогитееее написать ее

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-12T15:04:58+00:00

var a:array[1..10]of integer;

i,s:integer;

begin

s:=1;

for i:=1 to 10 do begin

readln(a[i]);

if a[i] mod 3=0 then s:=s*a[i];

end;

writeln(s);

end.