ПИТОН, ИСПОЛЬЗОВАТЬ ТЕОРИЮ Заполните массив из 10 элементов случайными числами в интервале [0, 5]. Введите число Х и найдите все значения, равные Х.

import random

mass = [random.randint(0, 5) for i in range(10)]

print(mas)

numb = int(input(‘Введите число в диапазоне от 0 до 5: ‘))

print(‘Число ‘ + str(число_1) + ‘ встречается в массиве ‘ + str(mass.count(numb)) + ‘ раз(а)’)

Const
  m = 6;
  n = 4;

var
  a: array[1..m, 1..n] of integer;
  b: array[1..m] of integer;
  i, j, p, pmax, imax: integer;
  flag: boolean;

begin
  {1}
  Randomize;
  writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(81) - 40;
      write(a[i, j]:4)
    end;
    writeln
  end;
  {2}
  writeln('Произведения построчно');
  for i := 1 to m do
  begin
    p := 1;
    for j := 1 to n do p := p * a[i, j];
    writeln(i, ': ', p:9)
  end;
  {3}
  pmax := -MaxInt;
  writeln('Максимальное построчное произведение'); 
  for i := 1 to m do
  begin
    p := 1;
    for j := 1 to n do p := p * a[i, j];
    if pmax < p then
    begin
      pmax := p;
      imax := i;
    end
  end;
  writeln(imax, ': ', pmax:9);
  {4}
  for i := 1 to m do b[i] := a[i, 1];
  for i := 2 to m do
  begin
    p := b[i];
    j := i - 1;
    flag := False;
    while (j > 0) and (not flag) do
      if p < b[j] then
      begin
        b[j + 1] := b[j];
        j := j - 1
      end
      else flag := True;
    b[j + 1] := p
  end;
  writeln('Отсортированный первый столбец');
  for i := 1 to m do writeln(b[i]:3)
end.

Тестовое решение:

Исходный массив
 -27   4   3  14
  15  40 -39 -27
  40 -40 -40 -24
 -38   7  18   1
  17  27  29  -9
  10 -32  38   0
Произведения построчно
1:     -4536
2:    631800
3:  -1536000
4:     -4788
5:   -119799
6:         0
Максимальное построчное произведение
2:    631800
Отсортированный первый столбец
-38
-27
 10
 15
 17
 40

Const
  St: array[1..3] of string = ('Будапешт', 'Рим', 'Киев');
  Nas: array[1..3] of real = (9.9, 61.5, 44.3);
  Kr: array[1..3] of string = ('Венгрия', 'Италия', 'Украина');
  {Сведения о численности населения приведены по данным ресурса
   CountryMeters по состоянию на 03.07.2014}

var
  i: integer;

begin
  write('Введите 1-Венгрия, 2-Италия, 3-Украина -> ');
  readln(i);
  if i in [1..3] then
    writeln('Страна- ', Kr[i], ', столица- ', St[i], ', население (млн.чел.)- ', Nas[i])
  else
    writeln('Неверный ввод!')
end.

Тестовое решение:

Введите 1-Венгрия, 2-Италия, 3-Украина -> 2
Страна- Италия, столица- Рим, население (млн.чел.)- 61.5