Дана матрица. Упорядочить ее строки по возрастанию суммы их элементов

@yulka6464 · Регистрация: 24.05.2011

Помогите решить..я начало но не понимаю как сделать вещественную матрицу и поменять местами строки

Pascal

const n=3;m=4;
Var a:array[1..n,1..m]  of integer;
I,j,max,k:integer;
s:integer;
Begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(51);
write(A[i,j],' ');
end;
writeln;
end;
s:=0;
for i:=1 to n do
begin
s:=s+a[i,1];
max:=s;
k:=1;
j:=3;
while j<=m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,1];
if s>max then
begin
max:=s;
k:=j;
end;
 j:=j+2;
end;
writeln(s);
End;
end.

@Puporev · 04.05.2012, 14:48

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

как сделать вещественную матрицу

Pascal

Var a:array[1..n,1..m]  of real;
................................
a[i,j]:=10*random;
write(A[i,j]:5:2);

Добавлено через 38 секунд

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

и поменять местами строки

http://www.cyberforum.ru/pascal/thread565391.html

Опции темы