Вопросы и ответы по работе с системой и мероприятиям, проводимым на портале

Где ошибка, если компилятор ABSPascal выдает, что все верно.

 
Picture of Donikov Ana
Re: Где ошибка, если компилятор ABSPascal выдает, что все верно.
by Donikov Ana - Tuesday, 19 March 2019, 9:54 PM
 

Вот здесь мне выдает меньше 1 балла, 2 теста из 69. Задача 2.1 из двухмерных массивов.

Но результат правильный. И редактор программу выполняет. В чем ошибка не пойму. Не могли бы помочь?

program array21;
var
    a : Array[1..100,1..100] Of integer;
    f: text;
    i, j:Byte;
    count, sum, N:integer;
    sr : real;
begin
    sum := 0;
    Assign(f, 'input.txt'); Reset(f);
    ReadLn(f,N);
    for i := 1 to N do
    begin
    for j := 2 to N do
       begin
           
            Read(f, a[i][j]);
            sum := sum + a[i][j];
            count:=count+1;
                        end;
                        end;
                        sr:=sum;
    Close(f);
    assign(f, 'output.txt');
    rewrite(f);
    Write(f, sr/count:0:6);
    Close(f);
end.