Розв'язати задачі у зошиті:1. За до циклу whіlе записати числа у порядку спадання від 20 до 10За до циклу whіlе записати всі парні числа до 403. За до циклу whіlе записати всі непарні числа меншi 754. За до циклу whіlе вивести числа від 50 до 150​P.s это всё в Python!!

Правило получения числа из функции Random(X):  

    0 <= RandomNum < X

1)

  От 1 до 10 – Random(10)+1

  От -10 до 10 – Random(21)-10

  От 50 до 100 – Random(51)+50

2)

  Y:=10+Random(5)

  Random(5):

       Левая граница = 0

       Правая граница = 4

  Отсюда, Y ∈ [10; 14].

3)

// PascalABC.NET

// Версия 3.4.2, сборка 1956 (01/30/19)

var

 arr: array[0..99] of integer;

 p, n: integer;

begin

 (p, n) := (0, 0);

 for var i := 0 to 99 do

 begin

   arr[i] := Random(41) - 20;

   if (arr[i] > 0) then inc(p)

   else if (arr[i] < 0) then inc(n);

 end;

 Println('Positive:', p);

 Println('Negative:', n);

end.

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

var a:array[1..100] of integer;

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

var a:array[1..20] of integer;

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

   a[i] := random(1, 5);

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.