Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое из первых пяти чисел.
Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое из первых пяти чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы