Question

Пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк и M столбцов.Выполните поворот рисунка вправо на 90 градусов:
Паскаль

Answer 1

program povorot;
var       a, b: array [1..9] of integer;       i: integer;
begin       for i := 1 to 9 do read(a[i]);       b[3] := a[1];       b[6] := a[2];       b[9] := a[3];       b[2] := a[4];       b[5] := a[5];       b[8] := a[6];       b[1] := a[7];       b[4] := a[8];       b[7] := a[9];              writeln(b[1], b[2], b[3]);       writeln(b[4], b[5], b[6]);       writeln(b[7], b[8], b[9]);end.