школьная задача Опции

[Новичок]

Помогите решить задачу, кажется сделал правильно но в некоторых случаях при заполнение массива выводит неправильный номер

В массиве определить номер максимального элемента

program f281;
var a:array[1..5] of integer;
max,n,i:integer;
begin
for i:=1 to 5 do begin
read (a[i]);end;
max:=a[1];n:=1;
for i:=2 to 5 do begin		
if a[i]>max then max:=a[i];n:=i;
end;
writeln(n);
end.

Тегами не забываем пользоваться...

Сообщение отредактировано: volvo - 10.02.2010 13:09