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