Предмет: Информатика,
автор: bekhtgoldt01
Создать массив , рвводя значения элементов с клавиатуры. вычислить среднее арифметическое значение его элементов. например:если массив а[5]:15,7,8,23,11, то должны получить:12,8.Пояснение : найти сумму всех элементов, и поделить на количество элементов.
Составьте пж только программу , буду благодарен
Ответы
Автор ответа:
0
var a:array of integer;
n,i,s:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
a:=new integer[n];
for i:=0 to n-1 do readln(a[i]);
write ('Массив: ');
for i:=0 to n-1 do write(a[i],' ');
writeln;
for i:=0 to n-1 do s:=s+a[i];
writeln('Среднее арифметическое всех элементов массива равно: ',s/n)
end.
n,i,s:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
a:=new integer[n];
for i:=0 to n-1 do readln(a[i]);
write ('Массив: ');
for i:=0 to n-1 do write(a[i],' ');
writeln;
for i:=0 to n-1 do s:=s+a[i];
writeln('Среднее арифметическое всех элементов массива равно: ',s/n)
end.
Автор ответа:
0
var
a:array[1..100] of Integer;
i,n,x,sum:Integer;
sa:Real;
begin
sum:=0;
for i:=1 to 100 do
a[i]:=0;
ReadLn(n);
for i:=1 to n do
begin
ReadLn(x);
a[i]:=x;
sum:=sum + a[i]
end;
sa:=sum / n;
WriteLn(sa);
end.
a:array[1..100] of Integer;
i,n,x,sum:Integer;
sa:Real;
begin
sum:=0;
for i:=1 to 100 do
a[i]:=0;
ReadLn(n);
for i:=1 to n do
begin
ReadLn(x);
a[i]:=x;
sum:=sum + a[i]
end;
sa:=sum / n;
WriteLn(sa);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: huseynovferhad322
Предмет: Химия,
автор: ledovskihvaleria9
Предмет: Беларуская мова,
автор: innaatrosenko53
Предмет: География,
автор: serge2832