Bài 4 (6,0 đ). Viết chương trình Pascal nhập vào một dãy gồm n số nguyên, với 2<n<100.
a. In ra màn hình các số chính phương có trong dãy.
b. Tìm 3 phần tử trong dãy số có tổng lớn nhất.
c. Kiểm tra xem đãy số trên có phải là dãy tăng hay không. Dãy số X={x1,x2,...,xn} được gọi là dãy số tăng nếu thỏa mãn x1<x2<...<xn.
d. In ra các số trong dãy với yêu cầu : các số có giá trị bằng nhau chỉ in 1 lần.
Quảng cáo
1 câu trả lời 419
uses crt;
var a : array[1..100] of integer;
i, n, dem : integer;
begin
clrscr;
dem := 0;
write('nhap so phan tu trong mang :');readln(n);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i]);
if a[i] mod 4 = 0 then dem := dem + 1;
end;
writeln('co ', dem ,' phan tu chia het cho 4');
readln
end
Quảng cáo
Câu hỏi hot cùng chủ đề
Bài viết mới nhất Lớp 9
-
2 năm trước4346
-
2 năm trước3783
-
2 năm trước3571
-
2 năm trước3515
