Задан массив из 10 целых чисел. Написать программу которая находт

-сумму всех элементов массива

-колличество чётных и нечётных элементов массива

Const n=10;

var a:array[1 ... n] of integer;

i, s, k1, k2:integer;

begin

writeln ('vvedite massiv=') ;

for i: = 1 to n do

readln (a[i]) ;

s:=0;

k1:=0;

k2:=0;

for i: = 1 to n do

begin

s:=s+a[i];

if a[i] mod 2=0 then inc (k1) else inc (k2) ;

end;

writeln ('s=', s,' k1=', k1,' k2=', k2) ;

readln;

end.