Паскаль. дана квадратная матрица(случайные числа от -10 до 10) организовать вывод в виде матрицы.подсчитать количество чётных и нечётных элементов главной диагонали.

Ну блин
for i:=1 to n do 
  begin
     for j:=1 to n do write(a[i,j],' ');
     writeln;
end;
  writeln; 
 { я взял n это сколько строк и сколько столбиков, разберешься }
{ теперь выведем отрицательные числа }
for i:=1 to n do 
  for j:=1 to n do 
    if a[i,j]<0 then writeln(a[i,j]);
все :)