min:=a[1]; max:=a[1];
for i:=1 to n do begin
[color=red]if max>a[/color] then begin
max:=a;
m:=i;
end;
[color=red]if min<a[/color] then begin
min:=a;
k:=i;
end;
end;
[color=red]if m<k then[/color] write ('раньше стоит млаший') else write('раньше стоит
старший');
readln;
end;
end.
ПОМОГИТЕ!!!
вот я привел фрагмент этой задачи, но она идет как то криво
--//--
min:=a[1]; max:=a[1];
for i:=1 to n do begin
if max>a then begin
max:=a;
m:=i;
end;
if min<a then begin
min:=a;
k:=i;
end;
end;
if m<k then write ('раньше стоит млаший') else write('раньше стоит
старший');
readln;
end;
end.
У меня все нормально работало...
Код:
мне кажется ты с условиями (if-ами) намудрил:
[color=blue]if max<a[/color] then begin ...
[color=blue]if min>a[/color] then ...
[color=blue]if k<m then[/color] write ('раньше стоит млаший') else write('раньше стоит
старший');
хотя в принцепе это ошибка влияет на читаемость программы, а не на результат который она выдает
Цитата:
Originally posted by OlgaKr
мне кажется ты с условиями (if-ами) намудрил:
[color=blue]if max<a[/color] then begin ...
[color=blue]if min>a[/color] then ...
[color=blue]if k<m then[/color] write ('раньше стоит млаший') else write('раньше стоит
старший');
мне кажется ты с условиями (if-ами) намудрил:
[color=blue]if max<a[/color] then begin ...
[color=blue]if min>a[/color] then ...
[color=blue]if k<m then[/color] write ('раньше стоит млаший') else write('раньше стоит
старший');
Да, ты права... с условиями он намудрил, вернее он просто им значения наоборот присваивает: max=молодой, min=страший
Я в паскале проверял... его код все нормально выводит...