Question

В массиве из N элементов, заданных случайным образом из промежутка [0;50], найдите произведение всех элементов, меньших 25 (pascal abc)

Answer 1

Program mathlover12;

const

 n = 50; {Количество элементов массива}

 m = 50; {Максимально возможное значение элемента}

var  

 a:array[1..n] of integer;

 i,pp:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

{Ищем произведение элементов, меньших 25}

 pp:=1;

 for i:=1 to n do

   if a[i]<25 then pp:=pp*a[i];

{Вывод}

 writeln;

 for i:=1 to n do

   write(a[i],' ');

 writeln; writeln;

 writeln('Произведение элементов, меньших 25, равнo ',pp);

end.

{PascalABC.NET}

Program mathlover12;

const

 n = 50; {Количество элементов массива}

 m = 50; {Максимально возможное значение элемента}

var  

 a:array[1..n] of integer;

begin

 var s:='**** -=Alphaeus=- ****';

 for var i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for var i:=1 to n do a[i]:=random(m+1);

{Ищем произведение элементов, меньших 25}

 var pp:=1;

 for var i:=1 to n do

   if a[i]<25 then pp:=pp*a[i];

{Вывод}

 writeln; a.println; writeln;

 writeln('Произведение элементов, меньших 25, равнo ',pp);

end.

Answer 2

Для нахождения произведения всех элементов массива, которые меньше 25, вам понадобится следующий псевдокод на языке Pascal ABC:

pascalCopy code
program ProizvedenieLessThan25;

const
  N = 10; // Здесь указываете размер вашего массива, например, 10 элементов

var
  arr: array[1..N] of Integer;
  i: Integer;
  proizvedenie: Integer;

begin
  // Заполнение массива случайными числами от 0 до 50
  Randomize; // Инициализация генератора случайных чисел
  for i := 1 to N do
    arr[i] := Random(51); // Случайное число от 0 до 50

  // Инициализация произведения
  proizvedenie := 1;

  // Нахождение произведения элементов, меньших 25
  for i := 1 to N do
  begin
    if arr[i] < 25 then
      proizvedenie := proizvedenie * arr[i];
  end;

  // Вывод результата
  WriteLn('Массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  
  WriteLn;
  WriteLn('Произведение элементов, меньших 25: ', proizvedenie);

end.

Заметки по коду:

1. В этом псевдокоде предполагается, что размер массива равен 10. Вы можете изменить значение N, чтобы подогнать его под вашу задачу.
2. Используется функция Random(51), чтобы заполнить массив случайными числами от 0 до 50.
3. Переменная proizvedenie инициализируется единицей, так как умножение на единицу не изменит результат.
4. Затем проходим по всем элементам массива arr и умножаем их на proizvedenie, если они меньше 25.

После запуска программы вы увидите в консоли вывод элементов массива и произведение всех чисел меньше 25.