Viết phương trình -Nhập một dãy số nguyên có N phần tử -Xuất ra nàm hình dãy số vừa nhập . - tính tổng bình phương các phân tử là số dương trong dãy và xuất kết quả ra màn hình.

uses crt;

var i,n,s:longint;

      a:array[0..100000]of longint;

begin 

     clrscr;

     write('nhap n:'); read(n);

      for i:=1 to n do

           begin

                 write('nhap a[',i,']='); read(a[i]);

           end;

      s:=0;

       for i:=1 to n do

          begin

                 write(a[i],' ');

                  if a[i]>0 then s:=s+sqr(a[i]);

           end;

     writeln; 

      write(s);

readln

end.

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

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

Begin

clrscr;

S:=0;

 Write('nhap n nguyen duong tu ban phim ');

 Readln(n);

 For i:=1 to n do

Begin

    Write(' A[',i,']');readln(A[i]);

End;

For i:=1 to n do

If (A[i] >0) then

S:=S+sqr(A[i]);

Write(' Tong cac so la ',S);

Readln

End.