Розв'язок
Дано натуральное число m. Создать целочисленную матрицу А порядка m, которая на главной диагонали имеет 1, под ней – 5, над ней – 4.
Пример.
program Vvod_matr2;
const n=9; m=11;
var A:array [1..n,1..m] of byte;
i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=sqr(i+j);
writeln;
writeln('Output matrix a(',n,'*',m,')');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln
end;
readln;readln
end.
Решим задачу, когда матрицу необходимо получить за заданным алгоритмом.
В математике матрица это прямоугольная таблица, образованная из элементов некоторого множества и составляет с m строк и n столбцов. Если 
таблица называется прямоугольной матрицей размера 
. Если 
матрица называется квадратной, а число m – ее порядком.
Рассмотрим эту задачу на примере матрицы 
. Выучим условия какие присутствуют в этом примере: 
, 
, 
(i – номер строки, j – номер столбца).
Равные индексы () имеют элементы главной диагонали. Если (), то элементы расположены над главной диагональю (i изменяется от 1 до 3, j изменяется от 2 до 4). Если (), то элементы расположены под главной диагональю (i изменяется от 2 до 4, j изменяется от 1 до 3).Учитывая эти соображения, запишем формулу для вычисления элемента матрицы
program N2;
const m=4;
var A : array [1..m, 1..m] of byte;
i,j:byte;
begin
//Создание матрицы по заданному правилу
for i:=1 to m do
for j:=1 to m do
if i=j then A[i,j]:=1
else
if i<j then A[i,j]:=4
else A[i,j]:=5;
//Вывод матрицы на экран
writeln(‘Matriza porydka’, m);
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln
end;
end.
 |
Дана прямоугольная матрица размером 3*4. Найти количество нулевых элементов в каждом столбце матрицы
program DM;
const m=3; n=4;
var a : array [1..m,1..n] of byte;
i, j, k : byte;
begin
writeln('Vvedite matrizu razmerom ',m,'*',n);
//Создание матрицы
For i:=1 to m do
For j:=1 to n do
read(a[i,j]);
For j:=1 to n do
begin
k:=0;
For i:=1 to m do
if A[i,j]=0 then k:=k+1;
writeln('v ',j, ' stolbze ',k, ' elementov');
end;
readln ;readln
end.