Двумерные массивы

[GamBitFRK]

1) Даны 2 квадратных двумерных массива. Проверить, можно ли получить второй из них поворотом первого на 90 градусов по часовой стрелке

2) Удалите из массива столбцы, содержащие максимальный элемент массива, а затем удвойте вхождение столбцов, содержащих минимальный элемент

[GamBitFRK]

помогите, пожалуйста

[rUs_LAN]

В этом разделе прикреплено 2 темы, в первой приведены типичные задачи по работе с массивами, во второй правила раздела.
Вы не написали язык программирования, вы не показали своего кода, вы не поставили конкретных вопросов. Вы думаете вам помогут?

[GamBitFRK]

язык Паскаль

[GamBitFRK]

Если не трудно, пожалуйста, напишите код

[GamBitFRK]

Что - то не получается, если кто сможет, помогите

[GamBitFRK]

Пожалуйста, помогите

[Mad_Cat]

 {Даны 2 квадратных двумерных массива.
 Проверить, можно ли получить второй из них поворотом первого на 90 градусов по часовой стрелке}
 uses crt;
 const n=2;
 var Mx1,Mx2:array[1..n,1..n] of integer;
 i,j,t,p,k:integer; b:boolean;
 begin
 Writeln('Первый:');
 for i:=1 to n do
 for j:=1 to n do begin
 write('[',i,',',j,']=');readln(mx1[i,j]); end;
 Writeln('Второй:');
 for i:=1 to n do
 for j:=1 to n do begin
 write('[',i,',',j,']=');readln(mx2[i,j]); end;
 Writeln('====выводим===========');
  Writeln('Первая:');
 for i:=1 to n do begin
 for j:=1 to n do
 write(mx1[i,j]);
 writeln;
 end;
 Writeln('Вторая:');
 for i:=1 to n do begin
 for j:=1 to n do
 write(mx2[i,j]);
 writeln;
 end;
 writeln('====повернем вторую матрицу на 90 по часовой====');
  p := n div 2;
for i:=1 to p do
  begin
  for k:=i to n-i do
    begin
    t := mx2[i,k];
    mx2[i,k] := mx2[n-k+1,i];
    mx2[n-k+1,i] := mx2[n-i+1,n-k+1];
    mx2[n-i+1,n-k+1] := mx2[k,n-i+1];
    mx2[k,n-i+1] := t;
    end;
  end;
 writeln('====выведем повернутую матрицу ====');
 for i:=1 to n do begin
 for j:=1 to n do
 write(mx2[i,j]);
 writeln; end;
 b:=true;
 for i:=1 to n do begin
 for j:=1 to n do
 if mx2[i,j]<>mx1[i,j] then begin b:=false;break;end;
 if not b then break;
 end;
 if not b then writeln ('нельзя')
 else writeln('Можно');
 end.