Câu 1:

uses crt;

var a: array[1..10] of real;

i: integer; s:real;

begin

      clrscr;

for i:=1 to 10 do readln (a[i]);

for i:=1 to 10 do

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

writeln ('tong binh phuong la: ',s);

readln;

end.

Câu 2:

uses crt;

var a: array[1..100] of integer;

i,n: integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln (a[i]); 

for i:=1 to n do

    if (a[i]>0) and (a[i] mod 2 =0) then write(a[i],' ');

readln;

end.

uses crt;

var a: array[1..10] of integer;

s,i: integer;

begin

clrscr;

for i:=1 to 10 do readln (a[i]); {nhập mảng}

for i:=1 to 10 do if a[i]<0 then s:=s+sqr(a[i]);

writeln ('tong binh phuong la: ',s);

readln;

end.