
15.03.2010, 20:30
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
EndLeSSDre@M..Вы когда пишете код к программе хотя бы тестите его?! И прочитайте внимательнее какое задание было. Без обид, но вы такую байду выложили
MaTpOc...вот код ко второй задаче
Код:
{$APPTYPE CONSOLE}
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
min:=maxlongint;
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.
И уточните один момент, первого макс/мин или последнего в массиве?
Последний раз редактировалось Soherox; 15.03.2010 в 20:33..
|
|
|