Pascal: Дан массив, состоящий из n целых элементов, вычислить сумму модулей элементов массива, расположенных после

[Руслан Белый]

Составить программу и блок-схему Pascal:

Дан массив, состоящий из n целых элементов, вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю.

[Вадим Мошев]

Руслан Белый, Обращайтесь ко мне на почту vadimFreelance (co6ака) yandex toчка ru
Сделаю за небольшое денежное вознаграждение. Подробнее у меня в подписи.

[newerow1989]

const n=10;
var i,s:integer;
    p:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   i:=1;
   While p[i]<>0 do
      Inc(i);
   s:=0;
   For i:=i+1 to n do
      s:=s+Abs(p[i]);
   Writeln(s);
   Readln;
end.