1) Массив из 10 элементов заполнить случайными числами от 0 до 100 и вывести на экран. 2)Массив из 15 элементов заполнить случайными целыми числами от 0 до 35 и вывести на экран в обратном порядке. 3) Массив из 20 элементов заполнить натуральными числами, кратными 3. Вывести массив на экран в порядке возрастания

1)

from random import randint

a = [0]*10

for i in range(len(a)):

   a[i] = randint(0,100)

print(a)

2)

from random import randint

a = [0]*15

for i in range(len(a)):

   a[i] = randint(0, 35)

a = list(reversed(a))

print(a)

3)

from random import randint

a = [0]*20

for i in range(len(a)):

   item = 1

   while item % 3 != 0:

       item = randint(3, 333333)

   a[i] = item

a.sort()

print(a)

Программа:

Pascal:

№1)

var arr: array[1..10] of integer;

begin

 for var i := 1 to 10 do arr[i] := random(100);

 writeln(arr);

end.

№2)

const N = 15;

var arr: array[1..N] of integer;

 i, tmp: integer;

begin

 for i := 1 to 15 do arr[i] := random(100);

 writeln(arr);

 for i:=1 to n div 2 do begin

   tmp := arr[i];

   arr[i] := arr[N - i + 1];

   arr[N - i + 1]:= tmp;

end;

writeln(arr);

end.

№3)

const N = 20;

var

 arr: array[1..N] of integer;

 i, tmp, j: integer;

begin

 for i := 1 to N do readln(arr[i]);

 writeln(arr);

 for i := 1 to N - 1 do

   for j := 1 to N - i do

     if (arr[j] > arr[j+1]) then begin

       tmp := arr[j];

       arr[j] := arr[j+1];

       arr[j+1] := tmp;

     end;

 writeln(arr);

end.