Question

Дан одномерный массив A[n]. Известно что в нём имеется 0. Найти сумму всех элементов включительно до 0. в паскале

Answer 1

Program naconecto;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;randomize;for i:=1 to n do  begin    a[i]:=random(-5,5);    if a[i]<>0 then      begin        sum:=sum+1;      end    else      begin        break;      end;  end;writeln('cyMMa=',sum);END.

Answer 2

Задача

У вас есть одномерный массив `A` с `n` элементами. Известно, что в этом массиве присутствует элемент `0`. Вам нужно найти сумму всех элементов массива, включая элемент `0`.

Решение на языке Pascal

```