Написать программу, суммирующую положительные элементы массива, полученную сумму возвести...

Question

Написать программу, суммирующую положительные элементы массива, полученную сумму возвести в квадрат (сделать через Pascal)(пожалуйста срочно надо ни то 2 поставят)

Answer 1

Const  n = 10;  var  a :array [1..n] of integer;  i, sum :integer;
begin
  for i:= 1 to n do    readln(a[i]);    sum:= 0;  for i:= 1 to n do    if a[i] > 0 then      sum:= sum + a[i];  sum:= sqr(sum);  writeln(sum);      end.

Answer 2

Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin       
Writeln('Введите массив');       
for i:=1 to 10 do begin       
readln(m[i]);       
if m[i]>0 then S:=S+m[i]; end;       
S:=sqr(S);       
writeln('Сумма^2 равна ',S);       
readln;       
end.