Bài 1: 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.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

Trương Hồng Hạnh
27 tháng 11 2020 lúc 15:26

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.

Trương Hồng Hạnh
27 tháng 11 2020 lúc 15:27

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.

Trương Hồng Hạnh
27 tháng 11 2020 lúc 15:29

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.

Trương Hồng Hạnh
27 tháng 11 2020 lúc 15:32

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.

Nguyễn Lê Phước Thịnh
28 tháng 11 2020 lúc 12:17

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Huỳnh Mai Trân
Xem chi tiết
Hải Nguyễn
Xem chi tiết
Lan Ngoc
Xem chi tiết
Trâm Lê
Xem chi tiết
Nguyễn thị linh
Xem chi tiết
Phạm Quỳnh hương
Xem chi tiết
Nguyễn Thị Bích Huyền
Xem chi tiết
Lê Việt Hoàng
Xem chi tiết
Sữa Chống Cay
Xem chi tiết
0o0 Nhok kawaii 0o0
Xem chi tiết