Предмет: Информатика,
автор: alenchik19982404
Ввести c клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива. ААА ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО НУЖНО
Ответы
Автор ответа:
0
program q;
var
m:array[1..5] of integer;
sum, j:integer;
begin
sum:=0
for j=1 to 5 do
begin
write('введите ',j ,'элемент массива: ');
readln(m[j]);
sum:=sum+m[j]
end;
sum:=sum/5;
writeln(sum)
end.
Интересные вопросы
Предмет: Информатика,
автор: drunkedpopsy
Предмет: Биология,
автор: harumiko01
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: korn71