Регистрация
hjdbrvjt
19.06.2023 06:43
Информатика
Есть ответ 👍

Составить программу, которая заполняет массив а [1..11] случайными целыми числами в диапазоне от 4 до 18,находит сумму нечётных элементов и находит произведение элементов с четными индексами.

142
319
Посмотреть ответы 2

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

Рунтакс
Рунтакс
4,6(98 оценок)

program fantscrin;

  const n = 11;

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

      i,s,p: integer;

begin

  for i: =1 to n do

    a[i]: = random(8)+4;

  for i: =1 to n do

    write(a[i], '   ');

   

  s: =0;

  p: =1;

  for i: =1 to n do

    if (i mod 2 = 0) then p: =p*a[i]

                    else s: =s+a[i];  

   

  writeln('');

  writeln('сумма = ',s);

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

end.

olegovnao27
olegovnao27
4,8(94 оценок)

994960 кб останется  надеюсь правельно

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