Работа с векторами в Delphi 7

[Anton94.by]

Помогите сделать задание 1 в программе которую я прикрепил внизу. Там все работает, кроме первого задания.
Вот само задание 1:
Дан целочисленный вектор А(n). Построить вещественный вектор B(n), i-ый элемент которой равен среднему арифметическому двух соседних элементов вектора А: В [i]= =(А[i]+А[i+1])/2, (а B[10]=A[10]). Сортировка методом просеивания.
( если можете в коде для задания 1 поставьте комментарии где что). Спасибо.

[Anton94.by]

Вот код этого задания 1 для Pascal, помогите его сделать для Delphi7

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.

[Аватар]

program Project1;

{$APPTYPE CONSOLE}

//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;
ReadLn;
end.

[Anton94.by]

Сообщение от Аватар

program Project1;

{$APPTYPE CONSOLE}

//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;
ReadLn;
end.

Пожалуйста. Можете вставить этот код в саму программу.

[Аватар]

Пожалуйста. Можете вставить этот код в саму программу.

Какое-то загадочное послание. Моя твоя не понимай. Или понимай? Копируй полностью в текстовый файл с расширением dpr и открывай в делфи как проект, консольный. Всех делов-то. Или учись правильно вопросы ставить

[Serge_Bliznykov]

Сообщение от Аватар

Какое-то загадочное послание. Моя твоя не понимай. Или понимай? Копируй полностью в текстовый файл с расширением dpr и открывай в делфи как проект, консольный. Всех делов-то. Или учись правильно вопросы ставить

у него в пост #1 выложен архив с проектом. Там формы. Вот, видимо, он и хочет решение с VCL получить...

[Anton94.by]

Сообщение от Аватар

Какое-то загадочное послание. Моя твоя не понимай. Или понимай? Копируй полностью в текстовый файл с расширением dpr и открывай в делфи как проект, консольный. Всех делов-то. Или учись правильно вопросы ставить

Я скопировал код и вставил в программу, что выложил в первом вопросе ( см. 1 пост), конечно попытался отладить что бы работала программа, но программа не запускается. Если можете, то вставьте код в программу, что в первом посте и выложите. Спасибо.

[Anton94.by]

Вставил код в программу ( и отладил). Программа работает, но ответ показывает через окно командной строки ( т.е. через черное окно), а надо, чтобы ответ был во второй форме ( т.е. в том окне, которое появляется при нажатии задача1). Я в этом посте выложил новый архив программы. Исправьте пажалуйста...

[Anton94.by]

Кто знает, как посчитать вектор из данного задания? Помогите, пожалуйста. Вся программа работает, только надо задание 1 исправить. ( само задание смотрите пост 1 и пост 8 новая программа).