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

  

  Для четных элементов массива найти среднее арифметическое, для нечетных произведение квадратов и заменить элементы, кратные 3, квадратами их индексов

• 
  • 29 December 2020
  • Ответ оставил: lingvini2013

  const N = 100;

  var a: array [1..N] of integer;  

         i, count, sum, p: integer;

         arith: real;

         mult: biginteger;

         

  begin

         randomize;

         for i:= 1 to N do a[i]:= random(1, 1000);

         

         sum:= 0;

         

         for i:= 1 to N do begin

             if a[i] mod 2 = 0 then begin

                 inc(count);

                 sum:= sum + a[i];

                 arith:= sum / count;

             end;

             if a[i] mod 2 = 0 then begin

                 p:= a[i] * a[i];

                 if mult = 0 then mult:= p else mult:= mult * p;

                 // Произведение капец длинное

                 if a[i] mod 3 = 0 then a[i]:= i * i;

             end

         end;

         

        writeln(arith);

        writeln(mult);

  end.

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

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

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

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

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