Регистрация
dinafait2001
17.05.2023 14:44
Информатика
Есть ответ 👍

Помагите срчно! нужно

177
359
Посмотреть ответы 1

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

khadarin1977
khadarin1977
4,4(10 оценок)
Const n=(задайте нужное количество элементов массива); var a: array [1..n] of integer; i: byte; sum: integer; begin sum : =0; for i: =1 to n do begin write('a[',i,']= '); readln(a[i]); if a[i] mod 2=0 then sum: =sum+a[i]; end; writeln; write(sum); readln; end.

Популярно: Информатика