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

Question

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

Найти:

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

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

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

Answer 1

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 2<>0 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.