Здравствуйте, mustang289!
#1
[code lang=pascal]var a:array[1..20,1..20] of integer;
n,i,j:byte;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];{контроль ввода размера матрицы}
for i:=1 to n do
begin
for j:=1 to n do
begin{проверка условия задания}
if j<=n-i+1 then a[i,j]:=i+j-1
else a[i,j]:=0;
write(a[i,j]:3);{выводим текущий элемент}
end;
writeln;{перевод строки}
end;
end.[/code]
#2
[code lang=pascal h=300]Var a: array[1..20, 1..20] of integer;
n,i,j,mins, maxs, mini, maxi, t : integer;
begin
repeat
write('Введите размер матрицы от 1 до 20 n=');
readln(n);
until n in [1..20];
for i:=1 to n do
begin
for j:=1 to n do
begin
if j<=n-i+1 then a[i,j]:=i+j-1
else a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
mins:=0;{текущая сумма}
for j:=1 to n do{суммируем строку}
mins:= mins+a[1,j];{summa v str 1, poka=min}
maxs:= mins;{для первой строки минимум и максимум равны}
mini:= 1;{индекс минимальной строки}
maxi:= 1;{индекс максимальной строки}
for i:=1 to n do
begin
t:=0;{сумма текущей строки}
for j:=1 to n do
t:= t+ a[i,j];{суммируем}
if (t>maxs) then{проверяем максимум}
begin{меняем текущий максимум}
maxs:= t;
maxi:= i;
end;
if (t<mins) then{проверяем минимум}
begin{меняем текущий минимум}
mins:= t;
mini:= i;
end;
end;
{выводим результат работы}
writeln ('Максимальная сумма = ', maxs, ' строка ', maxi);
for j:=1 to n do
write(a[maxi,j],' ');
writeln;
writeln;
writeln ('Минимальная сумма = ', mins, ' строка ', mini);
for j:=1 to n do
write(a[mini,j],' ');
Readln;
end.[/code]
#3
[code lang=pascal]var rmatr:array[1..10,1..10] of real;
n,m,i,j,imx,jmx,k:byte;
mx,x:real;
begin
repeat
write('Введите количество строк от 3 до 10 n=');
readln(n);
until n in [3..10];
repeat
write('Введите количество столбцов от 3 до 10 m=');
readln(m);
until m in [3..10];
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
rmatr[i,j]:=i+j-1;{формируем матрицу}
write(rmatr[i,j]:6:2);{и выводим её}
if i+j=2 then
begin{запоминание первого элемента матрицы}
mx:=rmatr[1,1];
imx:=1;
jmx:=1;
end
else{поиск максимального абсолюта}
if abs(rmatr[i,j])>abs(mx) then
begin
mx:=rmatr[i,j];
imx:=i;
jmx:=j;
end;
end;
writeln;
end;
writeln('Максимальный по модулю элемент=',mx:0:2,' в строке ',imx,' в столбце ',jmx);
if n<m then i:=n else i:=m;
repeat
write('Введите номер строки и столбца для обмена от 1 до ',i,' k<>',imx,' k<>',jmx,' k=');
readln(k);
until (k in [1..i])and(k<>imx)and(k<>jmx);
for j:=1 to m do
begin{перестановка строк}
x:=rmatr[imx,j];
rmatr[imx,j]:=rmatr[k,j];
rmatr[k,j]:=x;
end;
for i:=1 to n do
begin{перестановка столбцов}
x:=rmatr[i,jmx];
rmatr[i,jmx]:=rmatr[i,k];
rmatr[i,k]:=x;
end;
writeln('Перестановка строк и столбцов с тем чтобы элемент ',mx:0:2);
writeln('оказался в ячейке [',k,',',k,']');
for i:=1 to n do
begin{вывод результата}
for j:=1 to m do
write(rmatr[i,j]:6:2);
writeln;
end;
end.[/code]