Хорошая задача . я подумаю и скажу тебе ответ .
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.
12022, 1222, 989, 90899, 9000
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS
Var i:integer;
n: array [1..8] of integer;
BEGIN
For i:=1 to 8 do
begin
Writeln('Vvedite element massiva');
Read(n[i]);
end;
Writeln;
For i:=8 downto 1 do
Writeln(n[i]);
Readln;
Readln;
END.