Массив заполнен случайным образом 20 числами в интервале от 0 до 100. 1) найти максимальный и минимальный элемент массива, а так же их сумму 2) найти среднее арифметическое элементов массива 3) из элементов массива сформировать два массива с четными и нечетными элементами (к примеру из массива а четные элементы поместить в массив в, а нечетные в массив с) вывести на экран полученные результаты (с пояснениями! )

Код: 1) program mas; var i,ne,ch,n: integer; a: array [1..1000] of integer; begin read(n); randomize; for i: =1 to n do begin a[i]: =random(80)+21; write(a[i],' '); //распечатка массива, увидешь правильно ли программа выполняет функци                           end; for i: =1 to n do begin if a[i] mod 2=0 then ch: =ch+1 else ne: =ne+1; end; writeln; writeln('нечетные=',ne); writeln('четные=',ch); end. 2) const n = 10; var a: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i: =1 to n do begin write('a[,'i,']='); readln(a[i]); end; write('введите значение: '); readln(znachenie); sum: =0; count: =0; for i: =1 to n do if a[i] > znachenie then begin inc(count); sum: =sum+a[i]; end; sred_arifm: =sum/count; write('среднее арифметическое =',sred_arifm: 3: 2); end.

Program n_12; var a, b: integer; s, x: real; beginwriteln   ('подсчёт суммы от продажи'); writeln ('количество не проданных билетов бизнес класса    a'); readln (a); writeln ('количество не  проданных билетов эконом класса b'); readln (b); writeln ('стоимость билета бизнес класса'); readln (x); s : = (40-a)*x+(120-b)*x/2; writeln ('билетов продано на ', s, ' руб.'); end.