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

Ira

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 20 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.