Bài 11: Kiểu mảng

nguyen trinh

viet phuong trinh nhap vao mang a gom N(N<=100) cac so nguyen roi thuc hien cac yeu cau

1. in ra danh sach cac so chia het cho 4

2. in ra mang hinh gia tri lon nhat chia het cho 7 va chi so do

3. xuat ra mang hinh cac phan tu cua mang do theo thu tu giam dan

Nguyễn Lê Phước Thịnh
27 tháng 6 2020 lúc 10:21

uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

Bình luận (0)

Các câu hỏi tương tự
lan anh
Xem chi tiết
Nguyễn Thái Sơn
Xem chi tiết
Trần Tú Quyên
Xem chi tiết
huỳnh thị kim thúy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Nguyễn Hùng
Xem chi tiết
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Hoangf Thu
Xem chi tiết
Nhân
Xem chi tiết