Найти среднее арифметическое нечетных цифр числа. Если таких цифр нет, вывести NO Входные данные

Целое число

Выходные данные

Среднее арифметическое с точностью до 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 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.

1)

Знак присвоения

2)

real

3)

Под буквой а будет значение 3

Под буквой в будет значение 3

Объяснение:

1)

Знак равенства: '='

Знак неравенства: '<>'

Знак присвоения: ':='

2) Диапазон значений real (от 2,9*10^-39 до 1,7*10*38, вещественный тип, для integer же (от -32768 до 32767, проще говоря, в real можно использовать десятичные значения).

3)

1 действие: записываем в букву 'a' значение, которое находится в букве 'в' т.е под буквой а будет 3.

2 действие: записываем в букву 'в' значение, которое находится в букве 'а' т.е первым действием под букву 'а' мы записали цифру 3, во втором же действии в букву 'в' мы записываем число 3