задача по матрице Опции

[Несчасній студент]

народ нужно помощь
в матрице A(4.5) нужно пощитать сумму елементов по столбцам и вывести их в порядке возростания
за рание благодарен

[Несчасній студент]

program lab2 (input,output);
var i,j,x:integer; s:real;
 A:array[1..4,1..5] of integer;
 B:array[1..4] of real ;
 begin
 writeln;
 for i:=1 to 4 do for j:=1 to 5 do read (a[i,j]);
 for i :=1 to  4 do
 begin
 s:=0;
 for j:=1 to  5 do  s:=s+a[i,j];
 end;
 b[i]:=s;
 writeln  ;
 for i:=1 to 4 do writeln (B[i])
 end.

вот что у меня вышло какойто бред но где ошыбкая не знаю (это без вивода по возростанию)

Сообщение отредактировано: volvo - 3.11.2006 21:57

[Malice]

....
end;
b[i]:=s;
...
вот что у меня вышло какойто бред но где ошыбкая не знаю (это без вивода по возростанию)

Поменяй местами эти строчки, у тебя присвоение b[i] происходит за циклом i.