Повернуть двумерный массив на 90 градусов

@Проц · Регистрация: 11.05.2014

Author24 — интернет-сервис помощи студентам

Повернуть двумерный массив на 90 градусов по часовой стрелке.
двумерный массив - размер 10х10, диапазон [10; 99]

@Svager · 16.05.2014, 00:34

Pascal

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,tmp:integer;
begin
 writeln('Ìàòðèöà :');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=10+random(100);
      write(a[i,j]:4);
     end;
    writeln;
   end;
  for i:=1 to n div 2 do
   for j:=i to n-i do
    begin
     tmp:=a[i,j];
     a[i,j]:=a[n-j+1,i];
     a[n-j+1,i]:=a[n-i+1,n-j+1];
     a[n-i+1,n-j+1]:=a[j,n-i+1];
     a[j,n-i+1]:=tmp;
    end;
 writeln;
  writeln('Íîâàÿ ìàòðèöà :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      write(a[i,j]:4);
       writeln;
    end;
end.

@Проц 1 / 1 / 1 Регистрация: 11.05.2014 Сообщений: 21
		1
	Повернуть двумерный массив на 90 градусов 15.05.2014, 22:45. Показов 3179. Ответов 1 Метки нет (Все метки) Повернуть двумерный массив на 90 градусов по часовой стрелке. двумерный массив - размер 10х10, диапазон [10; 99] 0

	16.05.2014, 00:34

Повернуть двумерный массив на 90 градусов

Решение