Question

Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Складывать числа до встречи 0. Напечатать сумму. Если нуля нет, то вывести на экран «нет элемента, равного нулю». Например, если А = { 2, 4, 0, –6, 5, –2, 0, 7}, результат: 2 + 4 = 6. На языке паскаль, пожалуйста

Answer 1

Ответ:

смотрите решение

Объяснение:

program primer;

var

a:array [1..8] of integer;

S,i:integer;

label 10;

begin

S:=0;

writeln (' введите значение в каждый элемент массива');

for i:=1 to 8 do

begin

write('введите   ',i,'  элемент массива : ');

read(a[i]);

end;

for i:=1 to 8 do

begin

If a[i]=0 then

goto 10;

S:=S+a[i];

end;

10:writeln (S);

readln;

readln;

end.

Answer 2

Конечно! Вот пример решения вашей задачи на языке Pascal:

pascalCopy code
program SumUntilZero;

var
  A: array of Integer;
  n, i, sum: Integer;
  zeroFound: Boolean;

begin
  writeln('Введите количество элементов в массиве:');
  readln(n);

  SetLength(A, n);

  writeln('Введите элементы массива:');
  for i := 0 to n - 1 do
    readln(A[i]);

  sum := 0;
  zeroFound := False;

  for i := 0 to n - 1 do
  begin
    if A[i] = 0 then
    begin
      zeroFound := True;
      break;
    end;

    sum := sum + A[i];
  end;

  if zeroFound then
    writeln('Сумма элементов до первого нуля: ', sum)
  else
    writeln('Нет элемента, равного нулю');

  readln;
end.

В данном примере мы используем динамический массив A для хранения введенных чисел. Затем мы проходимся по массиву и складываем числа до первого встреченного нуля. Если в массиве нет нулей, выводим соответствующее сообщение.