Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое из первых пяти чисел.

Question

Руслан

25 декабря, 17:44

+1

Ответы (1)

Знаете ответ на вопрос?

Павля · Answer 1

Var a[1 ... 5]: array of integer; i: integer; s:real; begin s:=0; for i:=1 to 5 do begin readln (a[i]) ; s:=s+a[i]; end; s:=s/5; writeln (s) ; end.