
17.03.2010, 22:50
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме: 10311449
Репутация:
1357
|
|
Сообщение от Soherox
а да емеае, воотка
Код:
const
n = 5;
var
a: array [1..n] of longint;
i, imax, imin, max, min: longint;
begin
min:=21474836;
max:=-min;
for i:=1 to n do
begin
read(a[i]);
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
if imin = imax then write('0')
else write(abs(imin - imax) - 1);
readln;
end.
если и сейчас скажешь что не работает, прибью 
во так супер)
спасибо, всем кто помогал + поставлю)))
только что такое longint и почему min:=21474836; ???
|
|
|