Ообработка элеметов двумерного массива

[Balashovec]

Товарищи нужна помощь ... помогите решить задачи ... заранее благодарю всех за участие
1.Дан двумерный массив.Поменять местами элементы, расположенные в верхнем правом и нижнем левом углах.
2.В зрительном зале 25 рядов, в каждом из которых 36 мест(кресел). Информация о проданных билетах хранится в двухмерном массиве, номера строк которого соответствуют номерам рядов, а номера столбцов - номерам мест. Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае - 0. Составить программу, определяющую число проданных билетов на места в 12-м ряду.

[Stilet]

Поменять местами элементы, расположенные в верхнем правом и нижнем левом углах.

И что сложного поменять местами переменные?

 m:=a[1,1];
 a[1,1]:=a[length(a),length(a[1])];
 a[length(a),length(a[1])]:=m;

Не проверял.

[Balashovec]

я нз в принципе как это...полностью не можеш для нуба в Паскале написать?

[Consol]

я нз в принципе как это...полностью не можеш для нуба в Паскале написать?

Так все написано осталось только написать ввод и вывод матрицы

[Balashovec]

и как это....ну помоги а...

[Consol]

uses crt;
var a:array[1..50,1..50] of real;
      i,j,n,m:integer;
      temp:real;
begin
clrscr;
 writeln('Введите размерность n,m ');
readln(n,m);
for i:=1 to n do
    for j:=1 to m do
      begin
        writeln('a[',i,',',j,']= ');
        readln(a[i,j]);
      end;
for i:=1 to n do
 begin
 for j:=1 to m do
 write(a[i,j]:6:2);
 writeln;
 end;
temp:=a[1,m];
a[1,m]:=a[n,1];
a[n,1]:=temp;
for i:=1 to n do
 begin
 for j:=1 to m do
 write(a[i,j]:6:2);
 writeln;
 end;  
end.

[Balashovec]

спасибо большое...а вторую не знаеш как решать?