Question

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?

Answer 1

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.