Viết chương trình nhập vào một mảng gồm N số nguyên,hãy cho biết có bao nhiêu phần tử trong mảng có giá trị bằng 10
Viết chương trình nhập vào một mảng gồm N số nguyên,hãy cho biết có bao nhiêu phần tử trong mảng có giá trị bằng 10
uses crt;
var n,i,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
write(‘Nhap so n: ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);read(a[i]);
if a[i]=10 then inc(d);
end;
writeln(‘Co ‘,d,’ phan tu co gia tri bang 10′);
readln
end.
Program BTT;
Uses crt;
Var A:array[1..10000] of longint;
i,n,dem: longint;
Begin
Clrscr;
Write(‘Nhap so luong phan tu: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
End;
dem:=0;
For i:=1 to n do
If A[i]=10 then inc(dem);
Write(‘Co ‘,dem,’ phan tu bang 10′);
Readln
End.