Одноранговая, конечно: любой участник может считать данные
<span><em>Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.</em></span>
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses Crt;
procedure MySwap(a:array of integer);
begin
var n:=a.Length;
for var i:=0 to n div 2 do Swap(a[i],a[n-i-1])
end;
procedure MyPrint(txt:string; a:array of integer);
begin
Print(txt); a.Println
end;
begin
var n:=ReadInteger('n=');
var a:=new integer[n];
var b:=new integer[n];
Randomize;
for var i:=0 to n-1 do begin
a[i]:=Random(10); b[i]:=Random(10);
end;
ClrScr;
MyPrint('Исходный А :',a); MySwap(a); MyPrint('Результат А:',a);
MyPrint('Исходный B :',b); MySwap(b); MyPrint('Результат B:',b)
end.
{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}
var
min,max,a:real;
begin
readln(a);
min:=a;max:=a;
while a<>0 do
begin
readln(a);
if a>max then
max:=a;
if a<min then
min:=a;
end;
writeln('min: ',min,' max: ',max);
end.
200 - <span>11001000</span>
489 - <span>111101001</span>
543 - <span>1000011111</span>
950 - <span>1110110110</span>
1025 - <span>10000000001</span>
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>