Tính tổng bình phương các số âm trong mảng N phần tử

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,S:Integer;

Begin

{Nhập mảng}

Write(‘Nhap N=’); Readln(N);

For i:=1 To N Do

Begin

Write(‘A[‘,i,’]=’); Readln(A[i]);

End;

{Tính tổng}

S:=0; For i:=1 To N Do

If A[i]<0 Then S:=S+A[i]*A[i];

{In kết quả ra màn hình}

Writeln(‘S= ’, S);

Readln;

End.

#NOCOPY

@huyenthaikhanh09