Bài 3 :
uses crt;
var n,i,sl : integer;
a : array[1..100] of real;
x,t : real;
begin clrscr;
t:=0; sl:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
write('Nhap X:'); readln(x);
for i:=1 to n do if a[i] < x then begin
sl:=sl+1;
t:=t+a[i];
write(a[i]:2);
end;
write('Co ',sl,' phan tu khong lon hon X');
write('Tong cac phan tu la :', t);
readln
end.
Bài 4 :
uses crt;
var n,i,sl : integer;
a : array[1..100] of real;
x,t : real;
begin clrscr;
t:=0; sl:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 TO N DO IF A[I] >=8.0 then begin
sl:=sl+1;
write(a[i]:3);
end;
write('Co ',sl,' em dat hoc sinh gioi');
readln
end.
