Задан массив А размерности N случайным образом. Найти: 1 задача. Среднее…

Program p1; Const N=10; //подставишь нужное NVar A: array[1… N] of integer; summa,kolvo,i: integer; Begin For i: =1 to n do Begin A[i]: =random (101) -50; Write (A[i],'); End; Writeln; For i: =1 to n do If a[i] mod 2<>0 then Begin summa: =summa+A[i]; kolvo: =kolvo+1; End; Writeln ('Среднее арифметическое=',summa/kolvo); End. Program p2; Const N=10; //подставишь нужное NVar A: array[1… N] of integer; kolvo,i: integer; Begin For i: =1 to n do Begin A[i]: =random (101) -50; Write (A[i],'); End; Writeln; For i: =1 to n do If a[i] mod 2=0 then kolvo: =kolvo+1; Writeln ('Число четных элементов=',kolvo); End.