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
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.
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.
