даны Н целых чисел найти среднее арифметическое чисел/пожалуйста!!!
Ответы на вопрос
Ответил Royal21
0
var
M: array [1..100] of integer;
s,i,n: integer;
begin
write('Введите кол-во чисел (n): ');
readln(n);
writeln('Введите ',n,' чисел:');
for i:= 1 to n do
begin
readln(M[i]);
s:=s+M[i];
end;
writeln('Среднее арифметическое: ',s/n);
end.
M: array [1..100] of integer;
s,i,n: integer;
begin
write('Введите кол-во чисел (n): ');
readln(n);
writeln('Введите ',n,' чисел:');
for i:= 1 to n do
begin
readln(M[i]);
s:=s+M[i];
end;
writeln('Среднее арифметическое: ',s/n);
end.
Новые вопросы