program idz_2_2;
uses crt;
const
n=4;
m=4;
var
x:array[1..n,1..m] of integer;
x1:array[1..n] of integer;
i,j:integer;
min,num:integer;
f:text;
begin
clrscr;
assign(f,'C:\Users\Mamba\Documents\Учеба\Информатика\idz_2_2_file.txt');
for i:=1 to n do
for j:=1 to m do
begin
write('x[',i,',',j,']=');
read(x[i,j]);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:4);
write(f,x[i,j]:4);
writeln;
writeln(f);
end;
writeln;
writeln('Glavnay diagonalb matricu');
writeln(f,'Glavnay diagonalb matricu');
for i:=1 to n do
x1[i]:=x[i,i];
for i:=1 to n do
write(x1[i]:4);
write(f,x1[i]:4);
writeln;
writeln(f);
num:=1;
min:=x1[1];
for i:=2 to n do
if x1[i] < min then
begin
min:=x1[i];
num:=i;
end;
writeln('minimalbnui element glavnoi diagonali = ',min,'. On nahodits9 v ',num,' stroke');
writeln(f,'minimalbnui element glavnoi diagonali = ',min,'. On nahodits9 v ',num,' stroke');
writeln('Vot stroka s min elementom');
writeln(f,'Vot stroka s min elementom');
for j:=1 to m do
x1[j]:=x[num,j];
for j:=1 to n do
write(x1[j]:4);
write(f,x1[j]:4);
readkey;
close(f);
end.
Сохранение в файл! |