Форум DL

Мой профиль

Не могу просмотреть последний 16 тест задачи 16_Gg9. Локальные максимумы

Мой профиль

Так и задумано.
Последний тест не отдаётся, чтобы не было псевдорешений типа
"если ввод такой, ответ такой".

Но вижу проблема уже решилась без взятия последнего теста:

20.04.2016 16:51:54 20.04.2016 16:52:03 Abelyan Alexander Методы алгоритмизации 16_Gg9. Локальные максимумы 50 Все тесты успешно пройдены Source.G34 DelTA3 at NIT8

Мой профиль

не могу посмотреть последний тест к задаче "Найти индекс"188275 Долинский М.С., январь 2015

program p1;
var a,b,r:array [1..10] of longint;
s,i,n,m,k,x,o :longint;
begin
readln(n);
  for i:=1 to n do
    read(a[i]);
readln(k);
   for i:=1 to n do
     b[i]:=a[i+k-1]-a[i];
m:=b[1];
      for i:=1 to n do
        if b[i]>m then begin m:=b[i];x:=i;end;
writeln(x);
end.

Мой профиль

Ввод
7
1 2 3 4 5 6 7
2

Вывод
1

Мой профиль

Спасибо, это была ошибка у меня в решении, я исправила

Мой профиль

не могу посмотреть 10й тест к задаче "Ошибки"48864 Кожемякин Сергей, ПМ-11, ноябрь 2006 . Помогите, пожалуйста

Мой профиль

Это не ошибка, так задумано - не отдаётся последний тест.
Когда отдавался, было много "обманщиков", которые писали решения так:
если вход такой - ответ такой.

Мой профиль

Что делать пишет что ответ не правилтный и доступ запрещен.
Задача решена правильно без жульгтчества вот решение

program p1;
var
a : array [1..5] of longint;
n,i,max : longint;
begin
readln(n);
for i:=1 to 4 do read(a[i]);
i:=1;
max:=a[i];
for i:=2 to 5 do
if(max<a[i]) then max:=a[i];
writeln(max);
end.

Мой профиль

Николай Коваленко:

Что делать пишет что ответ не правилтный и доступ запрещен.
Задача решена правильно без жульгтчества вот решение

program p1;
var
a : array [1..5] of longint;
n,i,max : longint;
begin
readln(n);
for i:=1 to 4 do read(a[i]);
i:=1;
max:=a[i];
for i:=2 to 5 do
if(max<a[i]) then max:=a[i];
writeln(max);
end.

А, по-моему, всё-таки это ошибка в программе.
А тест там такой
Ввод
89
4
4
7
9
Вывод
89

P.S. Поменял местами последний и предпоследний тесты.