Составишь программу ** языке посталь А) вычислить сумму модулей элементов массива X(15)....

Question

Составишь программу на языке посталь
А) вычислить сумму модулей элементов массива X(15). Б) выселить произведение модулей элементов массива B(15)
Помогите пожалуйста

Answer 1

А)var
 ar:array[1..15] of integer;
 s,i:integer;
 begin;
 for i:=1 to 15 do
 begin;
 readln(ar[i]);
 s:=s+abs(ar[i]);
 end;
 write(s);
 end.
б)var
 ar:array[1..15] of integer;
 s,i:integer;
 begin;
 s:=1;
 for i:=1 to 15 do
 begin;
 readln(ar[i]);
 s:=s*abs(ar[i]);
 end;
 write(s);
 end.