uses crt;
var x,d,i,n:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap x: ');readln(x);
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]<x then inc(d);
write('Trong day so do co ',d,' so nho hon x');
readln
end.
-Viết chương trình nhập 1 dãy số nguyên gồm n phần tử. in ra màn hình vị trí các phần tử có giá trị bằng x ( với x,n được nhập từ bàn phím)
Viết chương trình tìm số lớn nhất trong dãy số gồm n số nguyên được nhập từ bàn phím và đếm có bao nhiêu số lớn nhất trong dãy.
Chu mi ngaaa !!!
Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình các số vừa nhập và đếm xem trong n số đó có bao nhiêu số lớn hơn 10 và nhỏ hơn 20
Mọi người giúp em bài này với ạ, em mới biết làm chỗ in ra màn hình các số vừa nhập thôi ạ!
Viết chương trình tìm số lớn nhất trong dãy số gồm n số nguyên được nhập từ bàn phím và đếm các chẵn có trong dãy
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình hiệu các số chẵn trong dãy số nguyên.
Viết chương trình nhập mảng gồm N số nguyên từ bàn phím và in ra màn hình các dãy số vừa nhập đó
sử dụng biến mảng Viết chương trình nhập vào dãy số gồm n số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó Giúp mình với
cho mảng x gồm n phần tử được nhập từ bàn phím . hãy viết chương trình tính tích để thõa mãn điều kiện số đó là số chẵn
