PASCAL.дано n чисел: вычислить среднее арифметическое

Question

PASCAL.дано n чисел: вычислить среднее арифметическое

Iuse4ka Ученик (193), закрыт 10 лет назад

дано n чисел: вычислить среднее арифметическое

Answer 1

uses crt;
var
a,b,c,d:byte
begin
Writeln('Введите 3 числа через пробел')
readln(a,b,c)
d:=(a+b+c) div 3
Writeln('Среднее арифметическое ', d)
Readln
End.

Answer 2

Hicks Гуру (2516) 15 лет назад

сложи все числа и подели на n

Answer 3

Uses crt;
var n,i,S,M:integer;
Begin
clrscr;
S:=0;
readln(n);
for i:=1 to n do
begin
read(M);
S:=S+M;
end;
S:=S/n; //среднее арифметическое
writeln(S);
readln;
End.

Answer 4

for i:=1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);