Составить алг для нахождения среднего арифметического нечетных двузначных чисел в паскале

Question

Информатика

Желя

13 июля, 00:16

Составить алг для нахождения среднего арифметического нечетных двузначных чисел в паскале

+4

Ответы (1)

Знаете ответ?

Аргентея · Answer 1

Var z : array[1 ... 100] of longint; a, b, c, d:longint;

Begin

Read (a) ;

For i : = 1 to n do read (a[i]) ;

For i : = 1 to n do begin

B:=b+a[i]; c:=c+1;

End;

D : = b:c

Writeln (d) ;

End