Задан одномерный массив Delphi

[artimed]

Нужно сделать программу задание во вложении

[VIK_aka_TOR]

for i:=1 to 15 do 
if (a[i] + a[30 -i + 1] > max) then
max:= a[i] + a[30-i+1];

[artimed]

а можно ли полностью всю программу и хотелось бы ещё блок-схему увидеть .
За ранее спасибо!

[VIK_aka_TOR]

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

var
a: array [1..30] of integer;
i, max , index: integer;
begin

for i:=1 to 30 do  // ввод массива
begin          // в дельфе ввод у тебя будет либо из компонента стринггрид, тобишь из таблицы
write('a[',i,']=');    // наверное, или из другого компанента, сичитываешь значения в массив
readln(a[i]);
end;

for i:=1 to 15 do
if (a[i] + a[30 -i + 1] > max) then
begin
max:= a[i] + a[30-i+1];
index:=i;   // это на случай если понадобятся индексы элементов
end;
writeln('максимальный элемент новой пследовательности = ', max);  // собственно выводишь переменную max куда тебе нужно
writeln('индексы этих элементов : ', index, ' и ', 30 - index+1);   // и индексы элементов, если нужны...
end.

[artimed]

Спасибо огромное , при много благодарен.... если кто может сделайте плиз блок схему...