Получите массив B(N), i - ый элемент которого равен среднему арифметическому первых i элементов массива А

@lotos_47 · Регистрация: 02.03.2010

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток! Очень нужна ваша помощь с таким заданием: Дан массив A(N). Получите массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i.

@Puporev · 08.03.2010, 10:21

Pascal

uses crt;
const max=100;
var a,b:array[1..max] of real;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
writeln;
for i:=1 to n do
 begin
  b[i]:=0;
  for j:=1 to i do
  b[i]:=b[i]+a[j];
  b[i]:=b[i]/i;
 end;
writeln('Массив В:');
for i:=1 to n do
write(b[i]:5:2);
readln
end.

@lotos_47 · 08.03.2010, 22:13 **[ТС]**

Спасибо, я очень тебе благодарен!!

@lotos_47 0 / 0 / 0 Регистрация: 02.03.2010 Сообщений: 29
		1
	Получите массив B(N), i - ый элемент которого равен среднему арифметическому первых i элементов массива А 07.03.2010, 20:13. Показов 5029. Ответов 2 Метки нет (Все метки) Всем доброго времени суток! Очень нужна ваша помощь с таким заданием: Дан массив A(N). Получите массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i. 0

@lotos_47 0 / 0 / 0 Регистрация: 02.03.2010 Сообщений: 29
	08.03.2010, 22:13 [ТС]	3
	Спасибо, я очень тебе благодарен!! 0

Получите массив B(N), i - ый элемент которого равен среднему арифметическому первых i элементов массива А

Решение