20.05.2008, 19:44
общий
это ответ
Здравствуйте, Balboa!
Решение первой задачи в приложении.
Приложение:
Задача 1.uses crt;var a:array[1..20,1..20]of integer; b,c:array[1..20]of integer; n,i,j,sum,x:integer;beginclrscr;write(‘n= ‘);readln(n);randomize;Writeln(‘Matrica:‘);{создаем матрицу и одновременно считаем сумму в сироках}for i:=1 to n do begin sum:=0; for j:=1 to n do begin a[i,j]:=random(21)-10; sum:=sum+a[i,j]; write(a[i,j]:4); end; b[i]:=sum; {записываем их в массив} writeln; end;writeln;writeln(‘Massiv summ po strokam:‘);{выводим на экран}for i:=1 to n dowrite(b[i],‘ ‘);writeln;for j:=1 to n do {считаем суммы в столбцах} begin sum:=0; for i:=1 to n do begin sum:=sum+a[i,j]; end; c[j]:=sum; {записываем в массив} end;writeln;writeln(‘Massiv summ po stolbcam:‘); {выводим на экран}for i:=1 to n dowrite(c[i],‘ ‘);writeln;for i:=1 to n-1 do {сортируем оба массива по возрастанию}for j:=1 to n-1 do begin if b[j]>b[j+1] then begin x:=b[j]; b[j]:=b[j+1]; b[j+1]:=x; end; if c[j]>c[j+1] then begin x:=c[j]; c[j]:=c[j+1]; c[j+1]:=x; end; end;writeln;writeln(‘Otsortirovannyj massiv po strokam:‘);{выводим их на экран}for i:=1 to n dowrite(b[i],‘ ‘);writeln;writeln;writeln(‘Otsortirovannyj massiv po stolbcam:‘);for i:=1 to n dowrite(c[i],‘ ‘);readlnend.