на языке Паскаля
вводятся элементы найти сумму чисел которые делятся на 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.