1.
program Tin_hoc;
uses crt;
var i,n:integer;
begin
clrscr;
writeln('Nhap so nguyen: ');readln(n);
writeln('Tat ca cac uoc cua ',n,' la:);
for i:= 1 to n do if n mod i = 0 then write(i,' ');
readln;
end.
2.
program Tin_hoc;
uses crt;
var i,n,S:integer;
a:array [1..100000] of integer;
begin
clrscr;
write('Nhap n:');readln(n);
writeln('Nhap ',n,' so:');
S:=0;
for i:= 1 to n do
begin
readln(a[i]);
S:=S+a[i]
end;
writeln('S=',S);
readln;
end.
3.
program Tin_hoc;
uses crt;
var i,n,min,max:integer;
a:array [1..100000] of integer;
begin
clrscr;
write('Nhap do dai cua day: ');readln(n);
writeln('Nhap ',n,' phan tu cua mang: ');
for i:= 1 to n do readln(a[i]);
min:=a[1]; max:=a[i];
for i:= 1 to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i]
end;
writeln('max=',a[i]);
writeln('min=',a[i]);
readln;
end.
Nhớ cho mik câu tlhn nha
