Регистрация
андрон14
02.05.2021 12:36
Информатика
Есть ответ 👍

Информатика. 8 класс.

285
302
Посмотреть ответы 1

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

Викатульская
Викатульская
4,8(79 оценок)

program fantscrin;

  const n = 10;

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

          i,s: integer;

begin

  for i: =1 to n do

    a[i]: = random(11)+1;

  for i: =1 to n do

    write(a[i], '   ');

  p: =1;

  for i: =1 to n do

    if (i mod 2 < > 0) then

                            begin

                                p: =p*a[i];

                                write(a[i], '   ');

                            end;

  writeln('');

  writeln('произведение = ',p);

end.

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