Задача 7 (все элементы матрицы делятся на минимальный главной диагонали)

Посмотреть архив целиком
7) дана квадратна матрица n<=10. Разработать процедуру, в которой все элементы матрицы делятся на минимальный элемент главной диагонали. В основной программе вывести преобразованную матрицу или сообщение , что преобразовать нельзя


program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

procedure VVOD (var a:mas;var n:integer);
var i,j:integer;
begin
repeat
writeln('VVedite kolichestvo strok/stolbzov');
readln(n);
until n<=10;
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:integer);
var i,j:integer;
min:double;
begin
min:=a[1,1];
for i:=1 to n do if a[i,i]if min=0 then writeln ('Preobrazovat nelzia')
else begin
for i:=1 to n do begin
for j:=1 to n do a[i,j]:=a[i,j]/min
end;
end;
end;


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

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





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.