• 
  • 20 December 2020
  Информатика
  • Автор: mathlover12

  

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

• 
  • 20 December 2020
  • Ответ оставил: Alphaeus

  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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (19.07.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы