program Project13;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..100,1..100] of integer;
mas1=array[1..100] of integer;

Procedure vvod(var a:mas; n,m:integer);
var i,j:integer;
begin
writeln('Vvod matrici:');
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln;
end;
end;

Procedure vivod(var a:mas; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end;

Procedure sum_mas(var a:mas; var b:mas1; n,m:integer);
var i,j,k,s:integer;
begin
k:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+a[i,j];
k:=k+1;
b[k]:=s;
end;
end;

Procedure vivod_1(var b:mas1; n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(b[i]);
end;

Procedure sort(var b:mas1; n:integer);
var i,j,buf:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
begin
buf:=b[i];
b[i]:=b[j];
b[j]:=buf;
end;
end;


var a1:mas;
var b1:mas1;
var n1,m1:integer;
BEGIN
writeln('Kol-vo strok:');
readln(n1);
writeln('Kol-vo stolbcov:');
readln(m1);
vvod(a1,n1,m1);
writeln('Ishodnaya matrica:');
vivod(a1,n1,m1);
sum_mas(a1,b1,n1,m1);
writeln('Ishodniy massiv');
vivod_1(b1,n1);
sort(b1,n1);
writeln('Massiv posle sort:');
vivod_1(b1,n1);
readln;
END.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.