Bài 8. Lặp với số lần chưa biết trước

Duongtrucqui

Viet Ct nhap N so nguyên từ bàn phím (Độ dài dãy sô cùng nhập từ bàn phím)

a.In ra man hinh cac so nguyen am

b. In ra màn hình cac số nguyên tố trong dãy vừa nhập

Giúp mik vs mik sắp kt học kì rùiiiii

Nguyễn Lê Phước Thịnh
17 tháng 6 2020 lúc 19:33

uses crt;
var a:array[1..100]of integer;
n,i,j,kt: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 nguyen am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.

Bình luận (0)

Các câu hỏi tương tự
Phan Thị Phương Thy
Xem chi tiết
Nguyễn Phan Bảo Tin
Xem chi tiết
su nè
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
Duongtrucqui
Xem chi tiết
Cuong Ly
Xem chi tiết
An Vy
Xem chi tiết
Mỹ Trinh
Xem chi tiết
Lê Tâm Anh
Xem chi tiết