Question

в одномерном массиве, состоящем из n целых элементов , лежащих в промежутке [-30;20], вычислить сумму элементов массива , рассположенных после первого элемента , равного нулю

Answer 1

Ответ:

program z1;

var i,n,k,s:integer;

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

begin

write ('n (n<=100) = ');

readln (n);

k:=0;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(51)-30;

write (a[i],'  ');

if (a[i]=0) and (k=0) then k:=i

end;

writeln;

if k=0 then writeln ('Нет элемента равного 0')

else

begin

for i:=k to n do s:=s+a[i];

writeln('s = ',s)

end

end.