Question

[Đại Trương xuân]

viết chương trình nhập vào 1 mảng số nguyên sau đó đếm xem có bao nhiêu số lớn hơn 5 trong dãy số đã nhập?

Answer 1

[Kiều Vũ Linh]

Var a:array[1..200] of integer;

i,n,dem:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

dem:=0;

For i:=1 to n do

If a[i]>5 then dem:=dem+1;

Write('So phan tu lon hon 5 la ',dem);

Readln;

End.