Question

напишите программу 1) Последовательность изменяется по закону 2,10,18... Сколько элементов последовательности надо взять, чтобы их сумма была больше 100 2) С клавиатуры вводится 20 чисел. Определите произведение этих чисел, количество положительных, сумму отрицательных элементов срочнооо заранее спасибо​

Answer 1

Ответ:

Решение на паскале.

Объяснение:

Первая задача:

var summa, kolichestvo : integer;

 begin

   summa := 2;

   while summa <= 100 do

   begin

     summa := summa + 8;

     kolichestvo := kolichestvo + 1;

   end;

   writeln('Количество = ', kolichestvo);

 end.

Вторая задача:

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

   kolpol, sumot, i : integer;

begin

 for i:=1 to 20 do

   Read(a[i]);

 for i := 1 to 20 do

   if a[i] >= 0 then

     kolpol := kolpol +1

   else

     sumot := sumot + a[i];

 writeln('Количество положительных = ', kolpol);

 writeln('Сумма отрицательных = ', sumot);

end.

Answer 2

1) Чтобы определить, сколько элементов последовательности нужно взять, чтобы их сумма была больше 100, нужно найти закономерность в изменении элементов и продолжить последовательность до тех пор, пока сумма не превысит 100.

Исходя из данной последовательности, можно заметить, что каждый следующий элемент получается путем добавления 8 к предыдущему элементу. Таким образом, можно продолжить последовательность следующим образом: 2, 10, 18, 26, 34, 42, 50, 58, 66, 74, 82, 90, 98, 106.

В данном случае, чтобы сумма элементов последовательности была больше 100, необходимо взять 14 элементов.

2) Для определения произведения введенных чисел, количества положительных чисел и суммы отрицательных элементов, нужно прочитать 20 чисел с клавиатуры и выполнить соответствующие операции.

Вот пример программы на языке Python, решающ