Помогите по VBA

[VolonD]

Народ помогите пожалуйста решить одну задачую.
Скоро сесия нодо очень .
ICQ 390903185
Зарание благодарен !!

В последовательности X найти два элемента , разность между значением одного из них и величиной A по модулю должна быть MAX а между значением второго и величиной A по модулю MIN .Найденые элементы поменять местами . Значение этих элементов и их номера напечатать. Преобразованную последовательность выдать на экран в строку.

[shuri]

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

Народ помогите пожалуйста решить одну задачую.
Скоро сесия нодо очень .
ICQ 390903185
Зарание благодарен !!
В последовательности X найти два элемента , разность между значением одного из них и величиной A по модулю должна быть MAX а между значением второго и величиной A по модулю MIN .Найденые элементы поменять местами . Значение этих элементов и их номера напечатать. Преобразованную последовательность выдать на экран в строку.

Интересно, какие грибы ел преподаватель перед выдачей таких заданий? Какой модуль имелся в виду? Уточнить можно? или все равно?

[VolonD]

Мне решили в делфи переделайте в VBA


SPAMer, 03.12.2007 22:48:09:
program Spameru;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=6;
var X:array [1..n] of real;A,min,max:real;i,j:integer;ok:boolean;
begin
writeln ('vvedite A,max i min');
readln (A,max,min);
writeln ('vvedite x');
i:=1;ok:=false;
repeat
read (X[i]);
if X[i]-A=abs(max)
then
begin
j:=i;
repeat
i:=i+1;
read (X[i]);
if X[i]-A=abs(min)
then
begin
a:=X[i];
X[i]:=X[j];
X[j]:=a;
writeln ('znachenie pervogo ilimenta=',X[j]:5:6);
writeln ('nomer pervogo ilimenta=',j);
writeln ('znachenie vtorogo ilimenta=',X[i]:5:6);
writeln ('nomer vtorogo ilimenta=',i);
ok:=true
end;
until eoln;
end;
if not ok then i:=i+1;
until eoln;
for i:=1 to i do
write (' ',X[i]:5:6);
readln;
readln;




end.

[VolonD]

Помогите

[shuri]

Лови, и нефиг бухтеть. У меня времени действительно очень мало :-(