ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1021. Таинство суммы

Wrong answer...скажите почему? и как правильно организовать ввод тогда?
Послано Alexandr 7 июн 2009 00:13
var m1, m2, m : array[1..50000] of Integer;
    i, j, dp, k : Integer;
begin
while not seekeof do
begin
Inc(i);
   read(m[i]);
end;
for j:=1 to m[1]+1 do
m1[j]:=m[j];
for j:=m[1]+2 to i do
begin
inc(k);
m2[k]:=m[j];
end;
for i:=2 to m1[1] do
begin
for j:=2 to m2[1] do
    if m1[i]+m2[j]= 10000 then dp:=1;
if dp=1 then break;
end;
if dp=1 then Write('YES') else Write('NO');
end.
Re: Wrong answer...скажите почему? и как правильно организовать ввод тогда?
Послано C-- USU {Kurpilyansky Gein Parfenenkov} 8 июн 2009 08:56
try test
1
5000
1
5000