Question

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

Answer 1

[Nguyễn Lê Phước Thịnh]

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.

Answer 2

[Trương Hồng Hạnh]

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.