1) дан массив а(5) заполненный случайными числами от 0 до 5. посчитать и вывести на экран сумму всех элементов массива. 2) дан массив а(20) заполненный случайными числами. посчитать и вывести на экран кол-во чётных и нечетных элементов массива. , нуно завтра сдавать зачет. заранее )

1)

var

a:array [1..5] of integer;

i,s:integer;

begin

randomize;

for i:=1 to 5 do begin

a[i]:=random(6);

write (a[i],' ');

s:=s+a[i];

end;

writeln;

writeln (s);

readln;

end.

2)

var

a:array [1..20] of integer;

i,k,l:integer;

begin

randomize;

for i:=1 to 5 do begin

a[i]:=random(6)+5;

write (a[i],' ');

if odd(a[i])=false then k:=k+1 else l:=l+1;

end;

writeln;

writeln (k,'   ',l);

readln;

end.