Lập trình đơn giản

Nguyễn Công Tỉnh

Xử lí dãy số .Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử (1<=n<=100).Viết đoạn chương trình xử lí các công việc:

a, Hiển thị ra màn hình dãy vừa nhận

b,Nhập giá trị m (m là số nguyên) ,chèn giá trị m vừa nhập vào cuối dãy.

c, Đếm và hiển thị ra màn hình các số nguyên tố trong dãy sau khi nhập giá trị m

Tin học [Hỗ trợ],Đoàn Xuân Sơn,híp,bảo nam trần,B (Erik)

helpppp

Quỳnh Thư
11 tháng 4 2019 lúc 15:21

program mang;

uses crt;

var n,i,m: integer

A: array [1..100] of integer;

BEGIN

clrscr;

repeat begin write ('nhap so phan tu ban muon: '); readln (n); end;

until (n>=1) and (n<=100);

for i:=1 to n do

begin write ('A[',i,']='); readln (A[i]); end;

writeln ('a)');

for i:=1 to n do writeln (A[i]);

Bình luận (0)
Quỳnh Thư
11 tháng 4 2019 lúc 15:48

function NT(n: integer): boolean;

var kt: boolean; i: integer;

begin

NT:= true;

if n <2 then NT:= false

for i:= 2 to n-1 do if n mod i = 0 then NT:= false;

end;

var dem: integer;

for i:=1 to n+1 do if NT(i):= true then begin dem:=dem+1;writeln (i); end;

write ('so luong cac so nguyen to la: ',dem);

READLN

END.

Bình luận (2)
Quỳnh Thư
11 tháng 4 2019 lúc 15:35

writeln ('b)');

write ('nhap m = '); readln (m);

for i:=n to n+1 do A[n+1]:= m;

for i:= 1 to n+1 do writeln (A[i]);

Bình luận (0)
Quỳnh Thư
11 tháng 4 2019 lúc 15:51

FOR i:= 1 to n +1 do if NT(A[i]):= true then begin write (A[i]); dem:=dem +1); end;

mk nhầm

Bình luận (0)

Các câu hỏi tương tự
Thảo Nguyên 36-88
Xem chi tiết
Quỳnh
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Hưng Quốc
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Jeri James
Xem chi tiết
Quỳnh Như
Xem chi tiết