45примеров по 15 картеж(картеж,словари,список)На фото пример

Program aaa;                   var a,b: array[1..4,1..4] of integer; i,j,x: byte; begin     randomize;   //запускаем генератор случайных чисел       // формируем и одновременно выводим матрицу     writeln ('исходная матрица: ');   for i: =1 to 4 do     begin     for j: =1 to 4 do       begin       a[i,j]: =random(-10,10);   //рандомное значение ячейки матрицы       write(a[i,j]: 4)   //вывод ячейки матрицы       end;     writeln;     end;       //поворачиваем матрицу на 90 градусов   for j: =1 to 4 do     begin     x: =0;     for i: =4 downto 1 do       begin       x: =x+1;       b[j,x]: =a[i,j]       end     end;       // выводим итоговую матрицу   writeln;   writeln ('матрица, повернутая на 90 градусов: ');   for i: =1 to 4 do      begin     for j: =1 to 4 do       write(b[i,j]: 4);     writeln     end     end. результат работы программы:   исходная матрица:   -7   -8   3   4   10   -5   -1   -8     3   -9   -7   -1   -2   6   -8   -9 матрица, повернутая на 90 градусов:   -2   3   10   -7     6   -9   -5   -8   -8   -7   -1   3   -9   -1   -8   4