паскаль

[pakusya]

пожалуйста, помагите решить задачи:
1. создать двумерный массив из M строк и N столбцов. найти самые правые наименьшие элементы и определить их местоположение.
2. создать квадратную матрицу из N строк и N столбцов .зеркально отобразить ее элементы относительно главной диагонали и вывести результат на экран.
3. создать квадратную матрицу из N строк и N столбцов .зеркально отобразить ее элементы относительно вертикальной оси симметрии.

[Rusl92]

1)

 var i,j,m,min:integer;
       n:real;
       a:array[1..100,1..100] of integer;
 begin      
   readln(m,n); 
   for i:=1 to m do
    for j:=1 to n do
      readln(a[i,j]);
   for i:=1 to m do
    begin
     min:=a[i,round(n/2)];
     indeks:=round(n/2);
     for j:=(round(n/2)+1) to n do
      
       if a[i,j]>min then 
        begin
         indeks:=j;
         min:=a[i,j];
        end;

      writeln('Min pravii element v ',i,' stroke raven ',min,'. Ego indeks=',indeks );
    end;
    readln
end.

то есть мы выводим на печать правые минимальные элементы

[puporev]

Чтобы найти самый правый минимальный элемет строки, т.е. первый с конца, то надо делать так:

for i:=1 to m do
   begin
     min:=a[i,n]; jmin:=n;
     for j:= n downto 1 do
     if a[i,j]<min then
        begin
           min:=a[i,j];
           jmin:=j;
        end;
   writeln('Самый правый минимальный элемент в строке ',i,' имеет номер ',jmin);
  end;

[puporev]

2. Создаем квадратную матрицу a[i,j].
Выводим ее на экран сначала в обычном виде, потом

for i:=1 to n do
      begin
        for j:=1 to n do
        write(a[j,i]:4);
        writeln;
       end;

[Rusl92]

а я подумал, что правые элементы - это количество всех элементов попалам и "справа" нужно смотреть?

[puporev]

3.Создаем квадратную матрицу a[i,j].
Выводим ее на экран сначала в обычном виде, потом

for i:=1 to n do
      begin
        for j:=n downto 1 do
        write(a[i,j]:4);
        writeln;
       end;

[Nia]

Помогите пожалуйста, задача школьной программы У меня с этим совсем плохо, а решение срочно нужно.

• Удалить третье слово из строки.

Спасибо.