Блог пользователя xakli

Кто пишет на Free Pascal?
Автор xakli, 14 лет назад, По-русски
Ничего не могу понять. Отправляю решение - ошибка компиляции... даже и не знаю в чем ошибка...
Кто может чего нибудь подсказать?
  • Проголосовать: нравится
  • -4
  • Проголосовать: не нравится

14 лет назад, # |
  Проголосовать: нравится +5 Проголосовать: не нравится
Хм... , ну ошибка может во всяком быть, скинь код, который ты отправлял.
→ Ответить
  • 14 лет назад, # ^ |
      Проголосовать: нравится 0 Проголосовать: не нравится
    Вот например на 33 контест, задача А:

    program a;
    uses crt;
    var
    n,m,k,i,s:longint;
    a,b:array[1..1000,1..2]of longint;
    begin
      readln(n,m,k);
      for i:=1 to n do
      begin
        readln(a[i,1],a[i,2]);
      end;
      for i:=1 to n do
      begin
        if b[a[i,1],1]<>1 then
        begin
          b[a[i,1],1]:=1;
          b[a[i,1],2]:=a[i,2];
        end
        else
        begin
          if b[a[i,1],2]>a[i,2] then b[a[i,1],2]:=a[i,2];
        end;
      end;
      s:=0;
      for i:=1 to m do
      begin
        s:=s+b[i,2];
      end;
      if s<=k then write(s) else write(k);
    end.
    → Ответить
    • 14 лет назад, # ^ |
        Проголосовать: нравится 0 Проголосовать: не нравится
      Ну во первых , не юзай crt, он тут не нужен, и не знаю будет ли компилить.
      Во вторых: убери строчку program a; ну а так все нормально.
      → Ответить
14 лет назад, # |
  Проголосовать: нравится 0 Проголосовать: не нравится
в uses crt; проблема видимо.
→ Ответить
14 лет назад, # |
  Проголосовать: нравится +8 Проголосовать: не нравится
> даже и не знаю в чем ошибка

→ Ответить
14 лет назад, # |
← Rev. 2   Проголосовать: нравится 0 Проголосовать: не нравится
я скомпилил
выбило ошибку duplicate idintidifier a строка 5 символ 21
у тя программа называется а и массив
→ Ответить