DELETED
S:14:19:39 24.12
R:14:20:16 24.12
program project1;
uses charset; //Не обязательно, только
//если компилятор выдаёт ошибку
{$CODEPAGE CP866} //Устанавливаем кодовую страницу
const
SzM = 10;
SzN = 10;
type Matrix = array [1..SzM,1..SzN] of integer;
type String_ = array [1..SzN] of integer;
procedure FillMatrixByRandom(var a: Matrix; m,n: integer); // Заполнение случайными
var i,j:integer;
begin
for i:=1 to M do
for j:=1 to N do
a[i,j] := Random(10);
end;
procedure PrintMatrix(const a: Matrix; m,n: integer); // Вывод матрицы
var i,j:integer;
begin
for i:=1 to M do
begin
for j:=1 to N do
write(a[i,j]:4);
writeln;
end;
end;
function MaxWRestrictions_index(const s:String_; n,m:integer):integer;
var j,max_, max_index:integer;
begin
max_ := s[1];
max_index:=1;
for j:=2 to n-m do
if s[j]>max_ then
begin
max_ := s[j];
max_index:=j;
end;
MaxWRestrictions_index:=max_index;
end;
var
a: Matrix;
mins: array [1..SzN] of integer;
m,n,i,j,max_,max_index:integer;
begin
m := 4;
n := 4;
FillMatrixByRandom(a,m,n);
writeln(*Исходная матрица: *);
PrintMatrix(a,m,n);
for i:=1 to m do
begin
max_index:=MaxWRestrictions_index(a[i],n,i);
max_:=a[i][max_index];
write(*MAX ЭЛЕМЕНТ в строке:*);
write(i);
write(* = *);
write(max_);
write(* по индексу: *);
writeln(max_index);
a[i,n-i+1]:=max_;
end;
writeln(*Измененная матрица: *);
PrintMatrix(a,m,n);
readln();
end.