uses crt;
Var a:array[1..100000] of longint;
i,n,max:longint;
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]>max then max:=a[i];
write('Gia tri lon nhat trong day so vua nhap la: ',max);
readln
end.
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
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 !!!
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau: a. Tìm và tính tổng các số nguyên tố trong dãy. b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy. c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0. ( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Viết chương trình nhập N số nguyên từ bàn phím tìm số lớn nhất và nhỏ nhất của dãy số.
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
viết chương trình sử dụng biến mảng để nhập một dãy số gồm N số nguyên từ bàn phím và thực hiện: +tính tổng các số trong dãy đó. +in ra màn hình các số lớn hơn 50 trong dãy số đó. +tìm số nhỏ nhất trong dãy đó Cần gấp ạ
Viết chương trình nhập N số nguyên từ bàn phím tính tổng số lớn nhất và nhỏ nhất của dãy số
viết chương trình nhập dãy n số nguyên dương từ bàn phím và đưa ra màn hình tích của dãy số nguyên đó(sử dụng biến mảng)
giúp mình với ạ, mình cảm ơn
sử dụng biến mảng Viết chương trình nhập vào một dãy số gồm n số nguyên từ bàn phím in ra màn hình giá trị lớn nhất của dãy số đó
