Регистрация
djodanosu7n8
18.01.2022 13:54
Информатика
Есть ответ 👍

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

287
436
Посмотреть ответы 3

Ответы на вопрос:

madecat
madecat
4,7(48 оценок)

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.

123478101934
123478101934
4,6(26 оценок)

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.

mariazeleznak2
mariazeleznak2
4,4(43 оценок)

? ? ?

при условии что в расширении три символа

Популярно: Информатика