Распределите типы информации в зависимости от того, по какому
признаку она классифицирована.
Выберите формы представления информации:

тактильная
текстовая
числовая
вкусовая
графическая
массовая
Допустное сопрово2​

проверено - работает на паскаль авс.

кстати, похоже на какую-то ошибку в условии : по формуле a(x,y)=2x^2-y^2 ни один элемент массива  никогда не будет равен 0.

program lobu; uses crt; const n=2; var  a: array[1..n,1..n] of real;   neg,sum: real;   i,j: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   neg: =0;   sum: =0;   for i: =1 to n do       begin          for j: =1 to n do              begin                a[i,j]: =2*i*i-j*j;                 write (a[i,j]: 7: 2);                 if a[i,j]< 0 then neg: =neg+1;                 if a[i,j]> 0 then sum: =sum+a[i,j];                 if a[i,j]=0 then writeln('элемент а(',i,',',j,') равен 0');               end;           writeln();       end;   writeln();   writeln('количество отрицательных чисел ',neg);   writeln('сумма положительных чисел ',sum); end.