Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Складывать числа до встречи 0. Напечатать сумму. Если нуля нет, то вывести на экран «нет элемента, равного нулю». Например, если А = { 2, 4, 0, –6, 5, –2, 0, 7}, результат: 2 + 4 = 6.
На языке паскаль, пожалуйста
Answers & Comments
Ответ:
смотрите решение
Объяснение:
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.