Решить в turbo pascal! посчитать в двумерном массиве количество нечетных чисел если массив является квадратной матрицей то транспонировать его.

Program asd; var a,b: array [1..250,1..250] of integer;     i,j,n,m,k: integer; begin   write('введите n: '); readln(n);     write('введите m: '); readln(m);   for i: = 1 to n do    begin    for j: = 1 to m do      begin      a[i,j]: =random(10);       write(a[i,j]: 3);     end;     writeln;   end; writeln; for i: = 1 to n do        for j: = 1 to m do    begin      if   a[i,j] mod 2=1 then inc(k);       end;               if n=m then      begin      writeln('транспонирование: ');       for i: =1 to n do   begin    for j: =1 to m do      begin      write(a[j,i]: 3);       b[i,j]: =a[i,j];       end;     writeln;     end;   writeln;       end      else writeln('кол-во нечетных элементов: ',k); end.

var

 i, n, ch, k1, k2, k3: Integer; //Объявляем переменные

begin // Начало блока  

 Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел

 Writeln('Введите числа: ');

 for i := 1 to n do // Начинаем цикл for от 1 до N                                  

 begin //Начало цикла

   Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры

   {Inc - счетчик  

   т.е если условие истинно с мы в переменную k1 записываем +1}

   if ch = 0 Then Inc(k1);  

   if ch > 0 Then Inc(k2);

   if ch < 0 Then Inc(k3);

 end; //Конец цикла

 {Выводим информацию о количестве чисел которые соответствуют условию}

 Writeln('Число нулей: ', k1);  

 Writeln('Число положительных: ', k2);

 Writeln('Число отрицательных: ', k3);

end. // Конец

Dim x(5, 5) randomize timer for i = 1 to 5     for j = 1 to 5         x(i, j) = int(rnd(1) * 10)     next j next i for i = 1 to 5     x(i, 0) = x(i, 1)             'в скобках не буква о, а цифра 0     for j = 1 to 5         if x(i, 0) > x(i, j) then x(i, 0) = x(i, j)         print x(i, j); " ";     next j     print "min="; x(i, 0)     s = s + x(i, 0) next i print "s="; s