Дается последовательность из N чисел. Выведите - вопрос №14753610 от vikylev011 25.05.2020 10:14

Question

Информатика: Дается последовательность из N чисел. Выведите сумму четных чисел среди них. Формат входных данныхПервая строка входного файла содержит целое число N (1 = N = 1000). В следующей строке задаются N положительных целых чисел, каждая из которых меньше или равно 1000.Формат выходных данныхВыведите ответ к задаче. ​

vikylev011 · Answer

program z1; var a,s,n,i:integer; begin s:=0; readln(n); for i:=1 to n dobegin read(a); if a mod 2 = 0 then s:=s+a end; writeln(s) end....