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

Question

Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания

Входные данные: -7,14,84,0

Составить по Паскалю

Answer 1

programm p;

var

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

i,n:integer;

s:integer;

begin

readln n;

for i:=1 to n do

readln(a[i]);

 

s:=0;

for i:=1 to n do

begin

if (a[i]>5)and(a[i]<81)and(a[i]/7=int a[i]/7) then</p>

s:=s+a[i];

if a[i]= 0 then break;

end;

writeln(s);

end.