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.