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
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]);
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.
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]);
FOR i:= 1 to n +1 do if NT(A[i]):= true then begin write (A[i]); dem:=dem +1); end;
mk nhầm