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 to: ‘);
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.