17.03.2010, 21:47
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
MaTpOc вот точный код программы! сорри что сразу норм не написал... спасибо Soherox
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
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.
POSTBIT TEST
Последний раз редактировалось EndLeSSDre@M; 17.03.2010 в 21:54..
|
|
|