Векторы

[Shimbo]

День добрый!

Задача:
Дан целочисленный вектор А(n). Построить вещественный вектор B(n), i-ый элемент кото-рой равен среднему арифметическому трех соседних элементов вектора А: В= =(A[i-1]+А+А[i+1])/3, (иB[1]=A[1], B[10]=A[10]).

Подскажите пожалуйста решение, или хороший источник который поможет разобраться, за ранее очень благодарен!

[dr.Jekill]

Код: Выделить всё

uses crt;
const
  MaxCount = 50;
var
  A: array[1..MaxCount] of Integer;
  B: array[1..MaxCount] of Real;
  i, n: Byte;
begin
  repeat
    ClrScr;
    Write('n: ');
    ReadLn(n);
  until n in [1..MaxCount];
  ClrScr;
  WriteLn('A:');
  Randomize;
  for i := 1 to n do
  begin
    A[i] := Random(50);
    Write(A[i], ' ');
  end;
  WriteLn;
  WriteLn('B:');
  B[1] := A[1];
  Write(B[1]: 5: 2, ' ');
  for i := 2 to n - 1 do
  begin
    B[i] := (A[i - 1] + A[i] + A[i + 1]) / 3;
    Write(B[i]: 5: 2, ' ');
  end;
  B[n] := A[n];
  Write(B[n]: 5: 2, ' ');
  ReadKey;
end.

Вот хороший источник