Решение матрицы - Pascal (97168)

Формулировка задачи:

Дана матрица [mxn]. Если числострок, больше числа столбцов, удвоить все элементы матрицы и утроить их в обратном случае. Если матрица квадратная - то обнулить все ее элементы. Помогите пож-ста. Заранее спасибо

Решение задачи: «Решение матрицы»

Листинг программы

var
a:array[1..100,1..100]of integer;
m,n,i,j,k:integer;
begin
writeln('Введите число строк');
readln(m);
writeln('Введите число столбцов');
readln(n);
writeln('Введите элементы матрицы');
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
if m=n then k:=0 else if m>n then k:=2 else k:=3;
for i:=1 to m do
 for j:=1 to n do
a[i,j]:=k*a[i,j];
writeln('полученная матрица');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.

Объяснение кода листинга программы

Вводится количество строк и столбцов матрицы с помощью функций readln().
С помощью двух вложенных циклов вводится элемент матрицы.
Если количество строк равно количеству столбцов, то вычисляется значение элемента матрицы.
С помощью двух вложенных циклов выводится элемент матрицы.
Значение элемента матрицы вычисляется с помощью операции умножения.