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:=random(6); write (a,' '); s:=s+a; 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:=random(6)+5; write (a,' '); if odd(a)=false then k:=k+1 else l:=l+1; end; writeln; writeln (k,' ',l); readln; end.
