Viết chương trình nhập vào một mảng các số nguyên sau đó thực hiện
a) Đếm xem có bao nhiêu phần tử có giá trị bằng 100
b) Đếm xem có bao nhiêu phần tử có giá trị lớn hơn -100 và nhỏ hơn 100
Viết chương trình nhập vào một mảng các số nguyên sau đó thực hiện
a) Đếm xem có bao nhiêu phần tử có giá trị bằng 100
b) Đếm xem có bao nhiêu phần tử có giá trị lớn hơn -100 và nhỏ hơn 100
1/
Program BTH;
Uses crt;
var n,k,t:longint;
i:byte;
a:array[1..1000000] of longint;
Begin
Clrscr;
Write(‘Nhap so phan tu co trong day: ‘); readln(n);
For i:=1 to n do
Begin
Write(‘Nhap so thu ‘,i,’ : ‘);readln(a[i]);
end;
For i:=1 to n do
Begin
If a[i]=100 then k:=k+1;
end;
for i:=1 to n do
Begin
If (-100<a[i]) and (a[i]>100) then t:=t+1;
end;
Writeln(‘So phan tu co gia tri bang 100 la: ‘,k);
Writeln(‘So phan tu co gia tri lon hon -100 va nho hon 100 la: ‘,t);
readln
end.
Var a:array[1..100] of integer;
i,n,d,k:integer;
Begin
Write(‘So phan tu:’);readln(n);
For i:=1 to n do
Begin
Write(‘Phan tu thu’ ,i,’ co gia tri:’ ); readln(a[i]);
End;
k:=0;
d:=0;
For i:=1 to n do
Begin
If a[i]=100 then k:=k+1;
If (a[i]<100) or (a[i]>-100) then d:=d+1;
End;
Write(‘So ptu co gtri =100’ ,k);
write(‘So ptu <100 hoac >-100’ ,d);
readln;
end.