Câu 1 Bước 1 nhập n và dãy a1,a2, a3,....an Bước 2 s = 0 i= 0 Bước 3 Nếu i>N. Xuất S, kết thúc Bước 4 Nếu ai>0 thì S = S + ai^2 Bước 5 i <---- i+1 lặp lại bước 3 a) thuật toán trên thực hiện công việc gì b) chuyển đổi thuật toán trên sang sơ đồ khối Câu 2 Bước 1: nhập N và dãy a1, a2, a3,...an Bước 2: S = 1, i=1 Bước 3 nếu i>N. Xuất S, kết thúc Bước 4 Nếu ai>0 thì S=S*ai Bước 5 i<----- i+1 lặp lại b3 a) thuật toán trên thực hiện công việc gì b) chuyển đổi thuật toán trên sang sơ đồ khố Câu 3 Bước 1 nhập n và dãy a1 a2 an; Bước 2 min<----- a1, i<----2; Bước 3 Nếu i>N thì đưa ra giá trị min ra và kết thúc Bước 4 nếu ai< min thì min<----- ai Bước 5 i<---- i+1 rồi quay lại bước 3 a) thuật toán trên thực hiện công việc gì b) chuyển đổi thuật toán trên trang sơ đồ khối

uses crt;
var m: array[1..100] of integer;
    n,i,max,j,t,scp: integer;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  for i:=1 to n do
   begin
    write ('nhap m[',i,']: ');  readln (m[i]);
    if max<=abs(m[i]) then max:=abs(m[i]);
   end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if m[i]<m[j] then
     begin
      t:=m[i];
      m[i]:=m[j];
      m[j]:=t;
     end;
  write ('day sau khi sap xep giam dan: ');
  for i:=1 to n do write (m[i],' ');
  writeln;
  writeln ('gia tri tuyet doi lon nhat trong day: ',max);
  write ('cac so chinh phuong trong day: ');
  for i:=1 to n do
   begin
    scp:=trunc(sqrt(m[i]));
    if sqr(scp)=m[i] then
    write (m[i],' ');
   end;
 readln;
end.