15.06.2014, 12:36
|
#1 (permalink)
|
Member
Регистрация: 22.08.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача, Pascal, нужна помощь с решением
Pascal. Дан двумерный массив n x m. Упорядочить построчно элементы массива по возрастанию. Выдает ошибку: "неизвестное имя n".
Program Zadacha;
Var
a:array [1..n,1..m] of integer;
i,j,k,t,n,m:integer;
Begin
for i:=1 to n do
Begin
for j:=1 to m do
Begin
a[i,j]:=random(40)-20;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to n do
for i:=1 to n-1 do
for k:=1 to n-i do
if a[k,j>a[k+l,j]] then
Begin
t:=a[k,j];
a[k,j]:=a[k+l,j]:
a[k+l,j]:t;
end;
writeln('Rezultat:');
for i:=1 to n do
Begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.
|
|
|