Авторизация:
E-Mail: Пароль:
Закрыть
RU | EN

program lab5;{$APPTYPE CONSOLE}uses

Опубликовано: 2014-12-03 22:40:18
Этот текст доступен по адресу: http://ontext.info/62562
program lab5;

{$APPTYPE CONSOLE}
uses
SysUtils;

const
n=10;
var
i,i1,j,j1,x:integer;
a:array[1..n,1..n] of integer;
f:boolean;
begin
randomize;
for I:=1 to n do
begin //ñòðîêè
for j:=1 to n do //ñòîëáöû
begin
a[i,j]:=random(10);
write(a[i,j]);
end;
writeln;
end;
readln;
i:=n-1;
i1:=0;
j1:=1;
while i1a[i,j 1] then
begin
x:=a[i,j 1];
a[i,j 1]:=a[i,j];
a[i,j]:=x;
f:=true;
end;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],\' \');
writeln;
end;
readln;

end.

Зарегистрируйтесь на ontext.info для получения дополнительных возможностей по работе с сервисом.