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.
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.
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.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.