01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / Задача 11 (умножение каждого столбца на макс элемент этого столбца)

11) матрицу n x m чтоб н<=10 м<=12 вещественных чисел.
Создать проедуру обработки матрицы чтобы она находила в каждом столбце максимальный элемент и умножала этот столбец на максимальный элемент своего столбца. Вывод матрицв сделать в основной программе

program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..10,1..12] of double;

procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
repeat
writeln('VVedite kolichestvo strok');
readln(n);
until n<=10;
repeat
writeln('VVedite kolichestvo stolbzov');
readln(m);
until n<=12;
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to n do read (a[i,j]);
readln;
end;
end;

procedure POISK (var a:mas;n,m:integer);
var i,j:integer;
max:double;
begin
for j:=1 to m do begin
max:=a[1,j];
for i:=1 to n do if a[i,j]>max then max:=a[i,j];
for i:=1 to n do a[i,j]:=a[i,j]*max;
end;
end;

procedure VIVOD (a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (a[i,j]:1:1,' ');
writeln;
end;
end;

var A:mas;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m);
writeln('Poluchennaya matriza');
VIVOD(A,n,m);
readln;
end.