1) Дан массив а(5) заполненный случайными числами от 0 до 5. Посчитать и вывести на экран сумму всех элементов массива. 2) Дан массив а(20) заполненный случайными числами. Посчитать и вывести на экран кол-во чётных и нечетных э...
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.
Не нашли ответ?
Похожие вопросы