Напишите программу, которая в последовательности целых чисел определяет их сумму и...

Question

Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается число 0(0-признак окончания ввода, не входит в последовательность СРОЧНО, ПОЖАЛУЙСТА, НА ПАСКАЛЕ. ОЧЕНЬ СРОЧНО

Answer 1

Program mas;

var i,k,sum:integer; a:array [1..1000] of integer;

begin

for i:=1 to 1000 do

begin;

readln(a[i]);

if a[i]=0 then break;

end;

k:=0;

sum:=0;

for i:=1 to 1000 do

begin;

sum:=sum+a[i];

if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) then

k:=k+1;

end;

writeln('summa= ',sum);

writeln('kolichestvo=',k);

readln;

end.