Question

9. Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст "Двойки нет". Например, если А = { 7, 4, –3, 2, 5, –2, 1}, результат: 7 + 4 – 3 = 8. Решите на паскале

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введите числа:', n);

 var k := a.FindIndex(p -> p = 2);

 if k < 0 then

   Print('Двойки нет, сумма равна', a.Sum)

 else

   Print('Сумма равна', a[:k].Sum)

end.

Answer 2

Приведу пример решения данной задачи на языке Паскаль:

program SumBeforeTwo;
var
  A: array of Integer;
  n, i, sum: Integer;
  hasTwo: Boolean;
begin
  write('Введите размер массива: ');
  readln(n);
  
  SetLength(A, n);
  
  // Вводим элементы массива
  writeln('Введите элементы массива:');
  for i := 0 to n - 1 do
    readln(A[i]);
  
  sum := 0;    // Переменная для хранения суммы
  hasTwo := false;
  
  // Ищем двойку и суммируем числа до нее
  for i := 0 to n - 1 do
  begin
    if A[i] = 2 then
    begin
      hasTwo := true;
      break;
    end;
    
    sum := sum + A[i];
  end;
  
  // Проверяем, была ли найдена двойка
  if hasTwo then
    writeln('Сумма чисел до двойки:', sum)
  else
    writeln('Двойки нет');
end.

Это консольное приложение, которое сначала запрашивает размер массива и вводит элементы массива с клавиатуры. Затем оно находит суммы чисел до тех пор, пока не встретится число 2, и выводит получившуюся сумму. Если 2 не встретилась, печатается текст "Двойки нет".