Bài 1 :

uses crt;

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

i, n : integer; s : real;

begin

clrscr;

write('nhap n = ');readln(n);

s := 0;

for i := 1 to n do

begin

write('so thu ', i ,' : ');readln(a[i]);

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

end;

write('Mang vua nhap la : ');

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

writeln;

writeln('Tong cac can bac hai cua cac so duong trong day so la : ', s:2:1);

readln

end.

Bài 2 :

uses crt;

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

i, n : integer; s : real;

begin

clrscr;

write('nhap n = ');readln(n);

s := 0;

for i := 1 to n do

begin

write('so thu ', i ,' : ');readln(a[i]);

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

end;

write('Mang vua nhap la : ');

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

writeln;

writeln('Tong cac gia tri tuyet doi cua cac so am trong day so la : ', s:2:1);

readln

end.