Написать программу которая с клавиатуры вводит 5 целых чисел и вычисляет среднее...

Question

Написать программу которая с клавиатуры вводит 5 целых чисел и вычисляет среднее арифметическое нечетных среди них.На ABC паскале пожалуйста

Comments

Pascal ABC

---

нужно

Answer 1

Var
A,S,i,n:integer;
Begin
n:=0;
S:=0;
For i:= 1 to 5 do
    Begin
    Read(A);
    if A mod 2 <> 0 then
    Begin
    S:=S+A;
    n:=n+1;
    WriteLn(A);
    End;
    End;
Write(S/n);
End.