Một số khái niệm về lập trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Long Thiên

Bài 1:Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:
a.Đếm số lượng các phần tử lẻ
b.Tính tổng các phần tử chia hết cho 5
c.Tìm phần tử chẵn lớn nhất và vị trí của nó trong mảng
d.Sắp xếp mảng theo thứ tự tăng dần và in ra màn hình
e.Tìm các phần tử là số nguyên tố
f.In ra màn hình các phần tử của mảng nếu phần tử là số nguyên tố thì thay bằng chữ "X"
Bài 2:Cho số tự nhiên m có m chữ số.Viết chương trình xóa n pascal sao cho số thu được là số lớn nhất

Nguyễn Lê Phước Thịnh
18 tháng 10 2020 lúc 12:59

Bài 1:

uses crt;
var a,b:array[1..100]of integer;
i,n,dem,t,dem1,max,tam,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2<>0 then inc(dem);
writeln('So luong so le la: ',dem);
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 5 la: ',t);
dem1:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem1);
b[dem1]:=a[i];
end;
max:=b[1];
for i:=1 to dem1 do
if max<b[i] then max:=b[i];
writeln('Phan tu chan lon nhat la: ',max);
writeln('Vi tri cua no trong mang 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('Mang duoc sap xep tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac so nguyen to trong day la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
bui pham phuong Uyen
Xem chi tiết
Long Thiên
Xem chi tiết
Duy Ng Văn
Xem chi tiết
Long Thiên
Xem chi tiết
Long Thiên
Xem chi tiết
Long Thiên
Xem chi tiết
Dang Dinh Trong
Xem chi tiết
Đặng Văn Sơn
Xem chi tiết
Dương Văn Nam
Xem chi tiết