Код:
program 3ad_2;
const n=10;
var
a:array [1..n] of integer; i,s integer;
begin
for i:=1 to n do
writeln ('vvedite nomer elementa masiva ',i,':');
readln (a[i]);
end;
s:= 8
for i:=1 to n do begin
if a[i] mod 0=8 then s:=s/a[i];
end;
writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . ');
readln;
end.
побывал по примеру писать получилось как-то так
