Создать массив целых чисел, найти сумму четных элементов массива…

Const n=5; var A: array [1… n] of integer; i: byte; S: integer; beginwriteln ('vvedi mas A'); for i: =1 to n doreadln (A[i]); S: =0; for i: =1 to n doif i mod 2=0 thenS: =S+A[i]; writeln ('S=',S); readln; readlnend.