Поиск максимумов в столбцах на Pascal
Поиск максимумов в столбцах...
const
SzM = 10;
SzN = 10;
type Matrix = array [1..SzM,1..SzN] of integer;
procedure FillMatrixByRandom(var a: Matrix; m,n: integer); // Заполнение случайными
begin
for var i:=1 to M do
for var j:=1 to N do
a[i,j] := Random(10);
end;
procedure PrintMatrix(const a: Matrix; m,n: integer); // Вывод матрицы
begin
for var i:=1 to M do
begin
for var j:=1 to N do
write(a[i,j]:4);
writeln;
end;
end;
var
a: Matrix;
maxs: array [1..SzN] of integer;
begin
var m := 5;
var n := 9;
FillMatrixByRandom(a,m,n);
writeln('Исходная матрица: ');
PrintMatrix(a,m,n);
for var j:=1 to n do
begin
var max := a[1,j];
for var i:=2 to m do
if a[i,j]>max then
max := a[i,j];
maxs[j] := max;
end;
writeln('Максимумы в столбцах: ');
for var j:=1 to n do
write(maxs[j]:4);
end.
10.02.2015, 10:56 -
Категория: Статьи » Программирование » Pascal