Предмет: Информатика,
автор: Помогитеятупой1
написать программу которая с клавиатуры вводит 5 целых чисел и вычисляет среднее арифметическое нечетных среди них.На ABC паскале пожалуйста
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: nadeina2692lena
Предмет: Алгебра,
автор: lolsmih2002
Предмет: Математика,
автор: sofiter
Предмет: Математика,
автор: Лина545