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

202

353

Посмотреть ответы 2

Ответы на вопрос:

daryaavdeeva01

Информатика

4,6(83 оценок)

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.