среди сгенерированных случайным образом 20 чисел из отрезка [ 1;1000] подсчитать количество и сумму четных чисел делящихся на 7

1

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

Лучший Ответ!
2012-11-22T19:49:39+00:00

var

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

i,sum,kol:ineger;

begin

for i:=1 to 20 do

begin 

a[i]:=random(1001);

if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then

begin

sum:=sum+a[i];

kol:=kol+1;

end;

end;

write(sum,+' '+ kol);

 

end.