1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1
Const
n=10;
var
i,j,k,m,buf:integer;
a:array[1..n,1..n]of integer;
begin
for i:=1 to n do
begin
writeln;
for m:=1 to n do
begin
a[i,m]:=random(20);
write(a[i,m]:4);
end;
end;
writeln;
writeln('k,j ?');
readln(k,j);
for m:=1 to n do
begin
buf:=a[k,m];
a[k,m]:=a[j,m];
a[j,m]:=buf;
end;
for i:=1 to n do
begin
writeln;
for m:=1 to n do
write(a[i,m]:4);
end;
end.
Uses CRT;
Const
Delay = 200; //Задержка в миллисекундах
Line = 22; //Номер строки, на которой будет текст
Text = 'Бегущая строка'; //Текст бегущей строки
Var
i: Integer;
s: String;
Begin
s := Text;
For i := 1 To 80 Do
Begin
GotoXY(1, Line);
TextColor(Random(14) + 1);
WriteLn(s);
s := ' ' + s;
Sleep(Delay);
End;
End.
Ответ:
(А) 1100(аvB) 0111 (AvB) 0101(AvBVAVB) 1101