Mình làm 4 bài đầu, cho hay nhất nhé.
uses crt;
var d:text; i,n,de,vt,max,h,dem,t:longint; a:array[1..100000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a>1)and(a mod i<>0) do inc(i);
nt:=i=a;
end;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do read(d,a[i]);
close(d);
assign(d,'output.pas');rewrite(d);
for i:=1 to n do
begin
if a[i]>max then begin max:=a[i]; vt:=a[i]; end;
if a[i]<0 then begin inc(de); inc(t,a[i]); end;
if nt(a[i]) then inc(dem);
if (a[i]>0)and(h<>0) then begin h:=a[i]; end;
end;
writeln(d,'1. Max: ',max,'; Vi tri: ',vt);
writeln(d,'2. Co ',de,' so am; Tong cac so am: ',t);
write(d,'3. Co ',dem,' so nguyen to: ');
for i:=1 to n do if nt(a[i]) then write(d,a[i],' '); writeln(d);
write(d,'4. '); if h=0 then writeln(d,'Khong co') else writeln(d,h);
close(d);
end.
