Как найти среднее арифметическое в паскале
Автор Iuse4ka задал вопрос в разделе Другие языки и технологии
PASCAL.дано n чисел: вычислить среднее арифметическое и получил лучший ответ
Ответ от
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.
Ответ от Hicks[гуру]
сложи все числа и подели на n
сложи все числа и подели на n
Ответ от ~SoWeLu~[активный]
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.
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.
Ответ от F f[новичек]
for i:=1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);
for i:=1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: PASCAL.дано n чисел: вычислить среднее арифметическое
помогите решить задачу в паскале. Для массива Х найти среднее арифметическое положительных элементов массива.
const n=5;
var x: array [1..n] of integer;
i,k:integer;
s,sr:real;
begin
подробнее...