Дистанционная подготовка: Система тестов в задаче 228 Номер максимального элемента
Система тестов в задаче 228 Номер максимального элемента
от Евгения Лапшинова - Среда 18 Февраль 2015, 01:41
  Решение 17-41750 получает статус Ok, но оно неверно работает, например, на таком тесте
5
-3 -1 -2 -7 -8
Решение выдает ответ 3, хотя правильный ответ 2.
Само решение
var
a:array [1..1000] of Longint;
n,numb,i,last,max: Longint;
begin
Readln(n);
max:=0;
for i:=1 to n do begin
Read(a[i]);
if a[i]>0 then begin
if a[i]>max then begin
max:=a[i];
numb:=i;
end;
end
else begin
max:=a[1];
if a[i]>=max then begin
max:=a[i];
numb:=i;
end;
end;
end;
Writeln(numb);
end.
Может стоит исправить систему тестов к задаче?