Question

на языке Паскаля
вводятся элементы найти сумму чисел которые делятся на 4 и оканчиваются на 4

Answer 1

var a:array[1..100] of integer; 
i,k,sum,n:integer; 
begin 
writeln('Введите количество элементов массива'); 
read(n); 
k:=0; 
sum:=0; 
writeln('Введите элементы массива'); 
for i:=1 to n do begin 
read(a[i]); 
if (a[i] mod 4 =0) and (a[i] mod 10 =4) then begin 
k:=k+1; 
sum:=sum+a[i]; 
end; 
end; 
writeln('Количество элементов = ',k,' Сумма элементов = ',sum); 
end.