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.