Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / задача 3 (найти макс элемент на главной диагонале, удаляет строку с макс)
.txt 3) На главной диагонали находит максимум и удаляет строку содержащую этот максимум.
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..15,1..15] of integer;
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
repeat
writeln('VVedite kolichestvo strok');
readln(n);
writeln('Vvedite kolichestvo stolbzov');
readln(m);
until m=n;
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;
procedure Del (var a:mas;n:integer;m:integer;var s:integer);
var i,j,imax,max:integer;
begin
max:=a[1,1];
imax:=1;
for i:=1 to n do
for j:=i to i do
if a[i,j]>max then begin
max:=a[i,j];
imax:=i;
end;
for j:=1 to m do
for i:=imax to n do begin
a[i,j]:=a[i+1,j];
s:=n-1;
end;
end;
procedure VIVOD (a:mas;s,m:integer);
var i,j:integer;
begin
for i:=1 to s do begin
for j:=1 to m do write (a[i,j],' ');
writeln;
end;
end;
var A:mas;
m,n,s:integer;
begin
VVOD(A,n,m);
DEL(A,n,m,s);
writeln('Poluchennaya matriza');
VIVOD(A,s,m);
readln;
end.
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..15,1..15] of integer;
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
repeat
writeln('VVedite kolichestvo strok');
readln(n);
writeln('Vvedite kolichestvo stolbzov');
readln(m);
until m=n;
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;
procedure Del (var a:mas;n:integer;m:integer;var s:integer);
var i,j,imax,max:integer;
begin
max:=a[1,1];
imax:=1;
for i:=1 to n do
for j:=i to i do
if a[i,j]>max then begin
max:=a[i,j];
imax:=i;
end;
for j:=1 to m do
for i:=imax to n do begin
a[i,j]:=a[i+1,j];
s:=n-1;
end;
end;
procedure VIVOD (a:mas;s,m:integer);
var i,j:integer;
begin
for i:=1 to s do begin
for j:=1 to m do write (a[i,j],' ');
writeln;
end;
end;
var A:mas;
m,n,s:integer;
begin
VVOD(A,n,m);
DEL(A,n,m,s);
writeln('Poluchennaya matriza');
VIVOD(A,s,m);
readln;
end.
Соседние файлы в папке Матрицы