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

Обсуждение задачи 1496. Спамер

test #8 WA HELP!!
Послано fender 8 фев 2008 21:11
what's wrohg with my code:
var a: array [1..100] of record
nam: string;
                                coun: integer;
                         end;
    n, m, c, i, j: integer;
    s: string;
begin
 readln(n);
 m:=0;
 for i:=1 to n do
 begin
  readln(s);
  c:=0;
  for j:=1 to m do if s=a[j].nam then
  begin
   inc(a[j].coun);
   inc(c);
  end;
  if c=0 then
  begin
   inc(m);
   a[m].nam:=s;
   a[m].coun:=0;
  end;
 end;
 for i:=1 to m do if a[i].coun>1 then writeln(a[i].nam);
end.
p.s.size of string doesnt matter

Edited by author 08.02.2008 21:11