Разберите программу с использованием логических величин. что будет выведено на экран в результате выполнения программы? program a2;
var x: integer;
m, n:boolean;
begin
X:=10;
M:=x>0;
N:=x<0;
Writeln (m) ;
Writeln (n);
end. ​

  Жили-были клавиатура , манитор , память и процесор . Жили они дружно пока невозник спор , кто из них главнее .Каждый из них говорил что он важнее других. Клавиатура говорила:
 -Если бы не было меня , то  человек бы не смог печатать слова и предложения!
Но манитор возражал:
-Я важнее вас! Ведь если бы меня не было то человек бы не смог увидеть экрана!
Но память твердила всем:
-Я важнее вас всех , ведь если бы меня не было , то человек бы не мог сохранять картинки , разную музыку и разные видео!
А процессор говорил :
-Я мозг компьютера! И я важнее всех потому что если бы меня не было то компьютер бы никогда не включался! И человек бы не смог просматривать диски и флешки!
Но тогда компьютер сказал им всем:
-Ребята , не ссорьтесь , все вы очень важны, и если бы не вы все , то компьютера бы не было! 
Вот на этом спор и закончился , и все начали жить дружно , как раньше!

Программа:

Pascal:

№2)

var

 m: array[1..10] of integer;

begin

 m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1; m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;

 for var i := 1 to 10 do

   if m[i] = m.max then m[i]:= 0;

 writeln(m);

end.

№3)

const n = 10;

var

 a: array[1..n] of integer;

 i, k, tmp: integer;

begin

 for i := 1 to n do a[i] := random(0, 1);

 writeln('Массив: ', a);

 

 for i := 1 to n - 1 do

   for k := 1 to n - i do

     if a[k] > a[k + 1] then begin

       tmp := a[k];

       a[k] := a[k + 1];

       a[k + 1] := tmp;

     end;

 writeln(a);

end.

№5)

const n = 10;

var

 a: array[1..n] of integer;

 a1, a2: array[1..n div 2] of integer;

 i, k, tmp: integer;

begin

 for i := 1 to n do a[i] := random(-10, 10);

 writeln('Исходный массив: ',a);

 

 for i := 1 to n div 2 do a1[i] := a[i];

 for i := (n div 2 + 1) to n do a2[i - n div 2] := a[i];

 

 for i := 1 to n div 2 - 1 do

   for k := 1 to n div 2 - i do

     if a1[k] > a1[k + 1] then begin

       tmp := a1[k];

       a1[k] := a1[k + 1];

       a1[k + 1] := tmp;

     end;

 for i := 1 to n div 2 - 1 do

   for k := 1 to n div 2 - i do

     if a2[k] < a2[k + 1] then begin

       tmp := a2[k];

       a2[k] := a2[k + 1];

       a2[k + 1] := tmp;

     end;

     

 for i := 1 to n do

   if i <= 5 then a[i] := a1[i]

   else a[i] := a2[i - n div 2];

 writeln('Выходной массив: ', a);

end.