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. Liệt kê các phần tử của mảng vừa nhập
b. Tính tổng tất cả các phần tử của mảng
c. Tìm phần tử lớn nhất trong mảng và cho biết phần tử đó ở vị trí nào trong mảng
d. In ra màn hình các cặp số có tổng bằng 5
e. In ra màn hình các số không phải là số nguyên tố
f. Dồn các phần tử trong mảng sao cho các phần tử âm viết trước,các phần tử dương viết sau và chúng đều viết giảm dần
Câu trả lời (1)
-
a) {Liet ke phan tu}
program liet_ke;
uses crt;
var
i,n:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i); readln(a[i]);
end;
for i:=1 to n do
begin
writeln(a[i]);
end;
readln;
end.
b) {Tinh tong cac phan tu}
program tinh_tong;
uses crt;
var
i,n,S:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i); readln(a[i]);
end;
S:=0;
for i:=1 to n do
begin
S:=S+a[i];
end;
write('Vay tong cac phan tu la: ',S); readln;
end.
c) {Tim phan tu lon nhat}
program tim_phan_tu_lon_nhat;
uses crt;
var
i,n,max,vt:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i); readln(a[i]);
end;
max:=0;
for i:=1 to n do
begin
if (a[i]>max) then
begin
max:=a[i];
vt:=i;
end;
writeln('Vay phan tu lon nhat la: ',max);
write('Phan tu lon nhat o vi tri: ',vt);
readln;
end;
end.
e) {Cac so khong phai so nguyen to}
program so_khong_la_snt;
uses crt;
var
i,n,dem:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i); readln(a[i]);
end;
for i:=1 to n do
begin
dem:=0;
for j:=1 to a[i] do
begin
if (a[i] mod j = 0) then inc(dem);
end;
if (dem><2) then writeln(a[i]);
end;
readln;
end.
f, uses crt;
var a,vt,b,c:array[1..100]of integer;
tam,n,i,t,max,kt,dem,dem1,dem2,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
max:=a[1];
dem:=0;
for i:=1 to n do
if max<a[i] then max:=a[i];
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
vt[dem]:=i;
end;
writeln('Phan tu lon nhat la: ',max);
writeln('Vi tri la: ');
for i:=1 to dem do
write(vt[i]:4);
writeln;
for i:=1 to n do
for j:=i to n do
if (i<>j) and (a[i]+a[j]=5) then writeln(a[i],' ',a[j]);
writeln('Cac so khong phai la so nguyen to la: ');
for i:=1 to n do
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=1 then write(a[i]:4);
end;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
inc(dem1);
b[dem1]:=a[i];
end;
if a[i]>0 then
begin
inc(dem2);
c[dem2]:=a[i];
end;
end;
for i:=1 to dem1-1 do
for j:=i+1 to dem1 do
if b[i]<b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
for i:=1 to dem2-1 do
for j:=i+1 to dem2 do
if c[i]<c[j] then
begin
tam:=c[i];
c[i]:=c[j];
c[j]:=tam;
end;
for i:=1 to dem1 do
write(b[i]:4);
for j:=1 to dem2 do
write(c[j]:4);
readln;
end.
bởi Vũ Hải Yến 17/11/2021Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
A. Nhất định phải có phần khai báo.
B. Không cần có phần khai báo.
C. Chỉ khai báo khi dùng hàm toán học.
D. Chỉ khai báo khi chương trình có sử dụng đến thư viện chương trình con nào đó.
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
ADMICRO
A. PI:=3.14
B. PI:3.14
C. PI=3.14
D. PI 3.14
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt, kết thúc bằng dấu “;”.
B. Python quy định các câu lệnh nên được viết trên một dòng.
C. Python quy định các câu lệnh nên được viết trên một dòng, kết thúc bằng dấu “;”
D. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt.
20/11/2022 | 1 Trả lời
-
A. Tất cả các biến dùng trong chương trình đều phải đặt tên cho chương trình dịch biết để lưu trữ và xử lí.
B. Tất cả các biến dùng trong chương trình không cần phải đặt tên.
C. Python có quy định chặt chẽ phải có phần khai báo và phần thân chương trình như Pascal.
D. Python yêu cầu sử dụng dấu “;” khi kết thúc câu lệnh.
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. x=5
B. x =0.2
C. x:5
D. x==5
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
a=10
print(a)
Biến a thuộc dữ liệu kiểu dữ liệu nào?
21/11/2022 | 1 Trả lời
-
b=3.5
print(b)
20/11/2022 | 1 Trả lời
-
kt=False
print(kt)
20/11/2022 | 1 Trả lời