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

Var
m : array[1..5] of Integer;
i,s : Integer;
Begin
s:=0;
Writeln(Введите 5 элементов:);
For i:=1 to 5 do
Begin
Readln(m[i]);
s:=s+m[i];
end;
Writeln(Среднее арифметическое: ,s/5);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!