Hãy viết chương trình 1 tìm tất cả các ước số của một số nguyên dương cho trước 2 tính S=a1+a2+....+an với a1,a2,....an là một dãy số nguyên cho trước 3 tìm số lớn nhất và nhỏ nhất trong một dãy số cho trước Hứa vote 5 sao kèm 1 huy chương

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