Повернуть двумерный массив размера n*n на 90 градусов против часовой стрелки

@typak · Регистрация: 20.06.2012

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

Повернуть двумерный массив размера n*n на 90 градусов против часовой стрелки и вывести результат на экран.

@Das Gespenst · 28.06.2012, 02:43

Pascal

program z;
uses crt;
const n=5;
var i,j:byte;
a:array [1..n,1..n] of integer;
begin
     clrscr;
     writeln('Случайная матрица');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       a[i,j]:=random(20)-5;
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     for i:=1 to n do
         for j:=1 to n do
             b[i,j]:=a[j,n-i+1];
     writeln('Результат');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(b[i,j],' ');
              writeln;
         end;
     readln;
end.

P. S.
Отдельное спасибо Puporev'у за это!

@typak 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 57
		1
	Повернуть двумерный массив размера nn на 90 градусов против часовой стрелки 27.06.2012, 17:29. Показов* 7704. Ответов 1 Метки нет (Все метки) Повернуть двумерный массив размера n*n на 90 градусов против часовой стрелки и вывести результат на экран. 0

	28.06.2012, 02:43

Повернуть двумерный массив размера n*n на 90 градусов против часовой стрелки

Решение