Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Задачи на Paskal / Array. Массивы / 04
.txt Продолжаем рубрику "Инфа для мужика"program Project1;
**********************************************************Задача про обмен строк с минимальной и максимальной суммой.
{$APPTYPE CONSOLE}
type mas=array[1..100,1..100]of integer;
procedure input(var a:mas; var n,m:integer);
var i,j:integer;
begin
writeln('vvedyte N,M: ');
read(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
writeln('vvedyte element (',i,',',j,') :');
read(a[i,j]);
end;
end;
end;
procedure output(a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin writeln;
for j:=1 to m do begin
write(a[i,j],' ');
end;
end; writeln;
end;
procedure obmen(var a:mas; n,m:integer);
var i,j,nmin,nmax,t : integer;
smax,smin,sum:real;
begin
smax:=0; smin:=0; nmax:=1; nmin:=1;
for j:=1 to m do begin
smax:=smax+a[1,j];
smin:=smin+a[1,j]; end;
for i:=2 to n do begin
sum:=0;
for j:=1 to m do begin
sum:=sum+a[i,j]; end;
if sum>smax then begin smax:=sum; nmax:=i; end;
if sum<smin then begin smin:=sum; nmin:=i; end;
end;
writeln('maximalnaya summa v ',nmax,' stroke, ravna ',smax);
writeln('minimalnaya summa v ',nmin,' stroke, ravna ',smin);
for j:=1 to m do begin
t:=a[nmin,j];
a[nmin,j]:=a[nmax,j];
a[nmax,j]:=t;
end; end;
var a:mas; n,m:integer; c:array[1..100]of real;
begin
input(a,n,m);
output(a,n,m);
obmen(a,n,m);
writeln('novaya matrica: ');
output(a,n,m);
readln;
readln;
end.
**********************************************************Задача про обмен строк с минимальной и максимальной суммой.
{$APPTYPE CONSOLE}
type mas=array[1..100,1..100]of integer;
procedure input(var a:mas; var n,m:integer);
var i,j:integer;
begin
writeln('vvedyte N,M: ');
read(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
writeln('vvedyte element (',i,',',j,') :');
read(a[i,j]);
end;
end;
end;
procedure output(a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin writeln;
for j:=1 to m do begin
write(a[i,j],' ');
end;
end; writeln;
end;
procedure obmen(var a:mas; n,m:integer);
var i,j,nmin,nmax,t : integer;
smax,smin,sum:real;
begin
smax:=0; smin:=0; nmax:=1; nmin:=1;
for j:=1 to m do begin
smax:=smax+a[1,j];
smin:=smin+a[1,j]; end;
for i:=2 to n do begin
sum:=0;
for j:=1 to m do begin
sum:=sum+a[i,j]; end;
if sum>smax then begin smax:=sum; nmax:=i; end;
if sum<smin then begin smin:=sum; nmin:=i; end;
end;
writeln('maximalnaya summa v ',nmax,' stroke, ravna ',smax);
writeln('minimalnaya summa v ',nmin,' stroke, ravna ',smin);
for j:=1 to m do begin
t:=a[nmin,j];
a[nmin,j]:=a[nmax,j];
a[nmax,j]:=t;
end; end;
var a:mas; n,m:integer; c:array[1..100]of real;
begin
input(a,n,m);
output(a,n,m);
obmen(a,n,m);
writeln('novaya matrica: ');
output(a,n,m);
readln;
readln;
end.