3 лёгкие задачи)

[Alex21]

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

А теперь, будьте так любезны привести код для Delphi а не для Pascal и написать коммент к каждой строчке

Перенесено во фриланс. Здесь обязательно ответят.

[puporev]

To nikleb.
Просче-то, просче, только не сортирует, прогоните свою программу и посмотрите.

[nikleb]

Я просто сортировал только строки. Но если уж так то всёравно можно сделать кароче:

program forum1;
uses crt;
var a:array[1..100,1..100]of integer;
    i,i2,i3,n,v:integer;
begin
clrscr;
randomize;
write('Vvedi "N: "');
readln(n);
for i:=1 to n do
    begin
    for i2:=1 to n do
        begin
        a[i,i2]:=random(10)+1;
        write(a[i,i2]:3);
        end;
    writeln;
    end;
for i3:=1 to n*n do
for i:=1 to n do
    for i2:=1 to n do
        begin
        if i2<>n then
           begin
           if a[i,i2+1]>a[i,i2] then
              begin
              v:=a[i,i2+1];
              a[i,i2+1]:=a[i,i2];
              a[i,i2]:=v;
              end;
           end
        else
           if (a[i+1,1]>a[i,i2])and(i<>n) then
              begin
              v:=a[i+1,1];
              a[i+1,1]:=a[i,i2];
              a[i,i2]:=v;
              end;
        end;
writeln;
for i:=1 to n do
    begin
    for i2:=1 to n do
        write(a[i,i2]:3);
    writeln;
    end;
readln;
end.