var A:
array[1..n] of int64;
i, n, count: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
count := 0;
for i := 1 to n do
if A[i] > 0 then
count := count + 1;
writeln('So luong cac so nguyen duong trong mang la: ', count); end.
BÀI 1: Yêu cầu: Cho n số nguyên , hãy tính khoảng cách nhỏ nhất giữa 2 số nguyên bất kì.
Dữ liệu:
- Dòng đầu tiên ghi số nguyên dương n ( n <= 100000 ).
- Dòng tiếp theo ghi n số nguyên a[i] ( | a[i] | <= 109 ).
Kết quả: In ra kết quả bài toán.
Ví dụ
INPUT |
3 |
OUTPUT |
1 |
Câu 1: Tìm số lớn nhất File chương trình: TimMax.pas
Yêu cầu: Tìm số lớn nhất trong dãy số nguyên cho trước.
Dữ liệu vào: Đọc từ file TimMax.inp, gồm:
- Dòng thứ nhất: Số nguyên dương N (1<N<103) là số lượng các số nguyên trong dãy số.
- Dòng thứ hai: là các số nguyên trong dãy số, các số nguyên được viết cách nhau 1 khoảng trắng và không vượt quá 109.
Dữ liệu ra: Ghi vào file TimMax.out, gồm 1 giá trị duy nhất là kết quả của bài toán.
Ví dụ:
|
TIMMAX.INP |
TIMMAX.OUT |
|
4 5 6 1 2 |
6 |
Ai giúp giải câu này với
Nhập vào số nguyên dương N (N ≤ 100) và dãy A gồm N số nguyên dương A1, A2, …, AN (Ai ≤2.1019). In ra màn hình số chính phương lớn nhất trong dãy A. Nếu trong dãy không có số chính phương nào thì in ra giá trị là -1
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
Lập trình nhập vào từ bàn phím 2 số nguyên dương M,N(M<N). Tính và đưa ra màn hình tổng, hiệu, tích, thương của 2 số đó?(in đc lun ạ)
Nhập một dãy A có N số nguyên Hãy xuất ra các phần tử là số chính phương
Dữ liệu nhập: file DAYSOCP.INP:
- Dòng 1: số phần tử N của dãy A
- Dòng 2: Dãy A
Pascal ạ;-;
Cho dãy số nguyên dương gồm 𝑁 phần tử 𝑎1, 𝑎2, … , 𝑎𝑁 và một số nguyên dương 𝑀. Yêu cầu: Đếm xem dãy 𝐴 có bao nhiêu dãy con liên tiếp có tổng không lớn hơn 𝑀.
Cho số nguyên dương N (100<=N<=1000000). Ghi ra 3 số nguyên tố lớn nhất nhỏ hơn N theo chiều từ lớn đến nhỏ.
xin trả lờ nhanh giúp tui
Viết chương trình nhập từ bàn phím hai số nguyên dương a,b và thực hiện in ra số đối xứng voi a và số đối xứng với b
