Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое из первых пяти чисел.
Var a[1..5]: array of integer;i: integer;s:real;begins:=0;for i:=1 to 5 do beginreadln(a[i]);s:=s+a[i];end;s:=s/5;writeln(s);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
