Курсовая работа: Массивы в языке Паскаль

for j:=1 to m do

begin

if a[i,j]=min then

begin

writeln('минимальное число = ',min:5);

{вывод минимального числа}

writeln('номер элемента i=',i,',','j=',j);

{вывод номера мин. чис-ла}

end;

end;

readln;

end.

12. Развернуть квадратную матрицу на 90 градусов по часовой стрелке.

program zadacha_12;

uses crt;

var

a: array [1..30,1..30] of integer; {исходная матрица}

b: array [1..30,1..30] of integer; {промежуточная матрица}

c: array [1..30,1..30] of integer; {Матрица развёрнута на 90?}

i,j: integer; {переменные счётчики}

m,n: integer; {количество строк и столбцов}

begin

clrscr;

write ('введите количество строк и столбцов ');

readln (n);

for i:=1 to n do {ввод элементов массива}

for j:=1 to n do

begin

write ('a[',i,',',j,']=');