Question

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

Answer 1

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.