Var n, k, i, imax, j: integer; a: array[1..100]of integer;
begin randomize; n := random(30) + 10; for i := 1 to n do begin a[i] := Random(30); write(a[i], ' '); end; writeln();
{сортировочка} for i := 1 to n - 1 do begin imax := i; for j := i + 1 to n do if a[j] > a[imax] then imax := j; k := a[i]; a[i] := a[imax]; a[imax] := k; end;
for i := 1 to n do write(a[i], ' ');
k := 0; for i := 2 to n - 1 do if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then k := k + 1;
if a[1] <> a[2] then k := k + 1; if a[n] <> a[n - 1] then k := k + 1;
1.
import random
a = random.randint(1,15)
b = random.randint(1,15)
if a == b:
a = 0
b = 0
print(a,b)
2.
import random
n = random.randint(1,999)
a = ""
b = ""
n = str(n)
if len(n) == 1:
a = "однозначное"
elif len(n) == 2:
a = "двухзначное"
elif len(n) == 3:
a = "трёхзначное"
n = int(n)
if n % 2 == 0:
b = "чётное"
else:
b = "нечётное"
print(a + " " + b + " число")
3.
n = int(input("Введите номер дня недели: "))
if n == 1:
print("Понедельник")
elif n == 2:
print("Вторник")
elif n == 3:
print("Среда")
elif n == 4:
print("Четверг")
elif n == 5:
print("Пятница")
elif n == 6:
print("Суббота")
elif n == 7:
print("Воскресенье")
else:
print("Такого дня недели нет")