Работа с несколькими массивами

[kuy]

Здравствейте, помогите пожалуйста дописать следующею задачу:
Дан массив A размера N. Сформировать новый массив B того же размера по следующему правилу: элемент BK равен среднему арифметическому элементов массива A с номерами от 1 до K.

Мои наробки:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  A:array[1..10] of integer = (82,52,51,42,37,32,21,18,17,12);

var
  i,j : integer;
  B            : array[1..10] of integer;

begin
  WriteLn('Mas A:');
  for i:=1 to 10 do write(A[i],'  '); Writeln;
  Readln;
end.

[fbus]

ну во-первых насколько я понял речь идет о динамическом массиве и о Delphi.
объявляется динамический массив так:

var A:array of integer;

потом в коде задается его длина

SetLength(A,N);

где N- размер массива

сформировать массив В такого же размера как и а можно так:

SetLength(B,Length(A));

ну а среднее арифметическое я думаю не сложно.
Осталось соединить все воедино и сдать.

[kuy]

Мне нужен код именно сренего арифметического. (для данного примера)

[fbus]

так бери и в цикле складывай числа а потом дели на количество пройденных чисел
если возникнут неприодолимые трудности, пиши в аську, сделаю

[Вадим Мошев]

Сообщение от fbus

ну во-первых насколько я понял речь идет о динамическом массиве и о Delphi.
объявляется динамический массив так:

var A:array of integer;

потом в коде задается его длина

SetLength(A,N);

где N- размер массива

сформировать массив В такого же размера как и а можно так:

SetLength(B,Length(A));

ну а среднее арифметическое я думаю не сложно.
Осталось соединить все воедино и сдать.

Кстати, следует заметить, что индексация в динамических массивах начинается с нуля, а не с 1.
Поэтому обращения к элементам массива будут иметь следующий вид:

for i:=0 to N-1 do...

[kuy]

Я уже впринцыпи лабу здал, по своиму написал. Но всё же если интересно было бы посмотреть на код этой програмы с динамическим массивом.

[JUDAS]

KIU смари

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  A, B : array of integer;
var
  i,N : integer;
begin
  WriteLn('Enter N ');readln(N);
  if N<=1 then exit;

  SetLenGth(A,N); 
  SetLenGth(B,N);
  // заполняем
  WriteLn('Mas A:');
  for i:=0 to N-1 do write(A[i],'  ');
  B[N-1]:=0;
  for i:=0 to N-1 do 
  begin
   if i<N-1 then B[i]:=A[i]; 
   B[N-1] := B[N-1]+A[i];
  end;
  B[N-1] := B[N-1]/N;
  WriteLn('result B[N] = ', B[N-1]);
  Readln;
end.

если нужно чтобы каждый элемент массива В содержал среднее арифметическое от 1-го до текущего тогда второй цикл будет выглядеть вот так:

B[0] := A[0]; 
 for i:=1 to N-1 do 
 begin
   if i<N-1 then B[i]:=A[i]; 
   B[i] := B[i-1]+A[i]/(i+1);
 end;

[kuy]

Мой Делфи 7 пишет что много ошибок, незнаю..