Двумерные массивы

[Александр16]

В матрице найти два столбца с равными сумами и поменять их элементы местами

[mss]

Приступай.
Или ты намерен сидеть и в носу ковырять, пока негры не сделают за тебя твою работу ?

[VadikV]

Ну, если с носом закончил и ничего не написалось - пиши - договоримся

[Shift_sk]

я бы написал...программа легкая...но реально сразу был азарт за когото чтото писать...а сейчс что-то поднадаели вы уже...никаких наработак...
p.s. лень вас погубит... и гугл вас не спасет!

[mss]

> реально сразу был азарт за когото чтото писать...а сейчс что-то поднадаели вы

Значит "реально" взрослеешь)

[Александр16]

Сообщение от mss

> реально сразу был азарт за когото чтото писать...а сейчс что-то поднадаели вы

Значит "реально" взрослеешь)

вот наработка дальше не знаю как делать

program matrica;
uses crt;
const n=3; m=4;
var
Mas : array [1..n,1..m] of integer;
i,j,sum1,sum2:integer;
begin
clrscr;
gotoxy (30,10);
Write('Обработка двумерных массивов');
gotoxy (30,14);
for i := 1 to n do
for j := 1 to m do
begin
gotoxy(30+5*j,15+i);
read(mas[i,j]);
end;
for j:=1 to m do
begin
sum1:=sum+mas[1,j];
sum2:=sum2+mas[1,j];
for i:=1 to n do
if sum1=sum2 then

readkey;
end.

[Shift_sk]

var a:array[1..100,1..100] of integer;
i,j,n,h,c:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10);
for i:=1 to n do
for j:=1 to n do
a[n+1,j]:=a[n+1,j]+a[i,j];
for i:=1 to n+1 do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[n+1,i]=a[n+1,j] then begin
for h:=1 to n do begin
c:=a[h,i];
a[h,i]:=a[h,j];
a[h,j]:=c;
end;
end;
for i:=1 to n+1 do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.