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.