Cho một dãy số thực, viết chương trình kiểm tra xem dãy trên có bao nhiêu số có giá trị lớn hơn ba
1 câu trả lời
uses CRT;
var a: array[1..250] of real;
i,n,d: integer;
begin
clrscr;
write('Nhap n= ');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] > 3 then d:=d+1;
write('Co ',d,' so co gia tri lon hon 3');
readln;
end.
