Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.