Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Thành Đô

Viết chương trình nhập một mảng gồm n số nguyên (n<= 100). Hãy đưa ra các thông tin sau:a. Tổng số lẻ trong mảng và in ra các số lẻ đó.b. kiểm tra xem tổng đó có phải là số nguyên tố hay không?

Luân Đào
29 tháng 12 2020 lúc 18:12

uses crt;

var i,n,s: integer;

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

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

write('a[',i,'] = '); readln(a[i]);

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.


Các câu hỏi tương tự
nông thị ngân
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
Quuỳnh Trang
Xem chi tiết
Ho Hai Trieu
Xem chi tiết
an1114
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
Meii
Xem chi tiết