Question

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

Answer 1

 

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.