Question

Язык pascal ABC
Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.

Answer 1

 Program z;
 var a: array[1..5] of integer;
 i,sum:integer;
 begin
 for i:=1 to 5 do
 begin
 readln(a[i]);
 end;
 for i:=1 to 5 do
 begin
 if(a[i] mod 4=0) and (a[i] div 10=6) then
sum:=sum+a[i];
 end;
 writeln(sum);
 end.