В АВС паскале пишет ошибка: массив имеет другое количество размерностей. посчитайте Эта пример-Задание из учебника 10 кл Семакин стр 179. program Example_2;type month=array[1. . 12] of real;year=array[2001. . 2010] of month;var Tabl: year;s:array[2001. . 2010] of real;i,j,k: integer;beginfor i:=2001 to 2010 dofor j:=1 to 12 dobeginwrite(j:2, '. ', i:4, ': ');readln (Tabl[i,j])end;for i:=2001 to 2010 dobegins[i]:=0;for j:=6 to 8 dos[i]:=s[i]+Tabl l[i,j];s[i]:=[i]/3end;k:=2001;for i:=2002 to 2010 doif s[i]>s[k] then k:=i;writeln('ñàìîå òåïëîå ëåòî áûëî â ',k, '-ì ãîäó')end.