• 
  • 13 May 2012
  Английский язык
  • Автор: Gctlfr

  

  Сформируйте массив из 10 элементов, каждый элемент которого равен сумме значений его индекса и квадрата индекса. Найдите произведение элементов массива, стоящих на четных местах. Вывести на экран эти элементы и их произведение.

• 
  • 13 May 2012
  • Ответ оставил: IngaEvdokimova777

  var

  a : array[1..10] of intenger;
  b : intenger;
  Begin

  b:=1;

  For i:= 1 to 10 do

   begin

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

  end;
  For i:= 1 to 5 do
  begin
  b:=b*a[i*2];
  end;
   For i:=1 to 5
  begin
  Writeln(' ',a[i*2]);
  end;
   Writeln('произведение элементов массива, стоящих на четных местах=',b);

  End.

  0
• 
  • 13 May 2012
  • Ответ оставил: Гаааав

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

  p,i:integer;

  Begin

    p:=1;

    for i:= 1 to 10 do begin

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

      if odd(i) then begin

        writeln(a[i]);

        p:=p*a[i];

      end;

    end;

    writeln(p);

  End.

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

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

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

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

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