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

Найти:

1 задача. Среднее арифметическое нечётных элементов

2 задача. Колическтво чётных элементов

(2 задачи отдельно)

Program p1;

Const N=10; //подставишь нужное N

Var 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; //подставишь нужное N

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