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

2) Матрица. Процедура: в строке находит максимальный элемент и делит каждый элемент на него. Если искомый элемент 0, то оставляет строку без изменений. В основной программе провести процедуру на всех строках.

program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..15,1..15] of double;
var M,K:mas;
n,i:integer;
procedure VVOD (var a:mas;var n:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok/stolbzov');
readln(n);
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_Del (a:mas;n:integer;var c:mas);
var j:integer;
max,del:double;
begin
max:=a[i,1];
for j:=1 to n do if a[i,j]>max then max:=a[i,j];
for j:=1 to n do begin
del:=a[i,j]/max;
C[i,j]:=del;
end;
end;


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


begin
VVOD(M,n);
for i:=1 to n do
POISK_Del(M,n,K);
writeln('Poluchennaya matriza');
VIVOD(K,n);
readln;
end.