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

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.Tính tổng các phần tử của mảng
b.Đếm các phần tử âm có mặt trong mảng
c.Tính tổng phần tử nhỏ nhất và lớn nhất trong mảng
d.CHỉ ra vị trí các số nguyên tố có mặt trong mảng
e.Nhập một số nguyên X bất kỳ từ bàn phím (X>0_,so sánh X và số lương số nguyên dương trong mảng?
f.Xóa X phần tử liên tiếp trong mảng và bắt đầu từ vị trí thứ X.In mảng sau khi xóa ra màn hình

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

uses crt;
var a:array[1..100]of integer;
n,i,t,dem,max,min,kt,j,x,dem1,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
dem:=0;
for i:=1 to n do
if a[i]<0 then inc(dem);
writeln('So phan tu am co trong mang la: ',dem);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Tong phan tu nho nhat va lon nhat trong mang la: ',max+min);
writeln('Vi tri cac so nguyen to co trong mang 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(i:4);
end;
writeln;
repeat
write('Nhap x='); readln(x);
until x>0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then inc(dem1);
if dem1<x then writeln(x,' nho hon so luong so nguyen duong trong mang')
else if dem1=x then writeln(x,' la so luong so nguyen duong trong mang')
else writeln(x,' lon hon so luong so nguyen duong trong mang');
readln;
end.


Các câu hỏi tương tự
bui pham phuong Uyen
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
Long Thiên
Xem chi tiết
Duy Ng Văn
Xem chi tiết
Dang Dinh Trong
Xem chi tiết
Đặng Văn Sơn
Xem chi tiết
Nguyễn trọng toàn
Xem chi tiết