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

Ответы 1

  • VarA,S,i,n:integer;Beginn:=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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years