type
mas=array[1..50,1..50] of integer;
var
a,b:mas;
n,m:integer;
procedure enter_mas(var z:mas; t:integer);
var
i,j:integer;
begin
for i := 1 to t do
for j := 1 to t do
begin
z[i,j]:=50-random(100);
end;
end;
procedure proverka_mas(var z:mas; t:integer);
var
i,j,r,x,y:integer;
begin
for i:=1 to t do
begin
j:=t+1-i;
{проверяем условие}
if z[i,j]<z[i,t]
then
begin
{меняем местами эти элементы}
r:=z[i,j];
z[i,j]:=z[i,t];
z[i,t]:=r;
end
else
begin
{сортируем строку по убыванию}
for x:=1 to t-1 do
for y:=x+1 to t do
begin
if z[i,x]<z[i,y]
then
begin
r:=z[i,x];
z[i,x]:=z[i,y];
z[i,y]:=r;
end;
end;
end;
end;
end;
procedure print_mas(z:mas; t:integer);
var
i,j:integer;
begin
for i:=1 to t do
begin
for j:=1 to t do
write(z[i,j]:4);
writeln;
end;
end;
begin
{Запрашиваем размерность массивов}
write('Введите размерность первого массива ');
readln(n);
write('Введите размерность второго массива ');
readln(m);
randomize;
{Заполняем значения}
writeln('Ввод элементов массива A');
enter_mas(a,n);
writeln('Ввод элементов массива B');
enter_mas(b,m);
{Печатаем исходные массивы}
writeln('Массив A');
print_mas(a,n);
writeln('Массив B');
print_mas(b,m);
{Проверяем условие}
proverka_mas(a,n);
proverka_mas(b,m);
{Печатаем обработанные массивы}
writeln('Массив A');
print_mas(a,n);
writeln('Массив B');
print_mas(b,m);
readln;
end. |
