Ответы и объяснения

Лучший Ответ!
2014-02-25T20:59:08+04:00
Var a:array [1..50,1..50] of integer;
i,j,k,n,m,l:integer;
o:array[1..50] of integer;
begin
writeln ('Введи размерность массива');
readln (n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(21)-10;
write (a[i.j]:4);
end;
writeln;
end;
a) for j:=1 to n-1 do
if a[1,j]>a[1,j+1] then
begin
m:=a[1,j];
a[1,j]:=a[1,j+1];
a[1,j+1]:=m;
end;
b) for i:=n downto 1 do begin
l:=l+1;
o[l]:=a[i,3];
end;
for J:=1 to n do
a[j,3]:=o[j];



Комментарий удален
Комментарий удален
Спасибо большое!)
и вывод массива тоже в комментариях
пожалуйста