1. Cho một dãy số gồm N phân tử:
– Tính tổng các phân tử trong dãy số.
– Tìm phân tử lớn nhất.
– In ra màn hình các số nguyên tố có trong dãy
1. Cho một dãy số gồm N phân tử:
– Tính tổng các phân tử trong dãy số.
– Tìm phân tử lớn nhất.
– In ra màn hình các số nguyên tố có trong dãy
program Cau_1;
uses crt;
var A:array [1..500] of integer;
n,i,T,max,j,d: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
max:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
T:=T+A[i];
if max<A[i] then max:=A[i];
end;
writeln(‘Tong cac phan tu = ‘,T);
writeln(‘Phan tu lon nhat: ‘,max);
write(‘Cac so nguyen: ‘);
for i:=1 to n do
begin
d:=0;
for j:=1 to A[i] do
if A[i] mod j=0 then d:=d+1;
if d=2 then write(A[i],’ ‘);
end;
readln
End.
uses crt;
var
a:array[1..100] of integer;
t,max,i,n:integer;
function songuyento( n:integer):boolean;
var
i:integer;
ok:boolean;
begin
ok:=true;
for i:=2 to n-1 do
if n mod i=0 then ok:=false;
songuyento:=ok;
end;
begin
clrscr;
write(‘nhap so phan tu cua day: ‘); readln(n);
for i:=1 to n do
begin
write(‘nhap phan tu thu [‘,i,’]: ‘); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
write(‘Tong cac phan tu trong day so la: ‘,t);
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
write(‘phan tu lon nhat la: ‘,max);
writeln;
write(‘Cac so nguyen to trong day la: ‘);
for i:=2 to n do
if songuyento(a[i]) then write(a[i],’ ‘);
readln;
end.