Массив заполнен случайным образом 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.

Const n=10; var a: array[1..n]of integer; i: integer; begin       for i: =1 to n do           begin                 a[i]: =random(100)-50;                 write(a[i]: 4);                       if a[i]< 0 then                           a[i]: =0;           end; writeln; for i: =1 to n do     write(a[i]: 4); end.

Техника безопасности в кабинете информатики  общие требования безопасности 1.к работе в кабинете информатики допускаются учащиеся, прошедшие инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.учащиеся должны соблюдать правила поведения в кабинете информатики.  3.при работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока.