Câu 1 : Viết cú pháp của dãy số Câu 2 : Cho 1 dãy số có n phần tử . Yêu cầu : tìm giá trị lớn nhất và nhỏ nhất của dãy số đó Câu 3 : cho 1 dãy số có n

Câu 1: (Chưa rõ ràng)

Câu 2:

program Cau_2;

uses crt;

var A:array [1..500] of integer;

      n,i,max,min: integer;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to do

         begin

                 write(‘A[‘,i,’]=’); readln(A[i]);

         end;

         max:=1; min:=1;

         for i:=1 to n do

         begin

                  if max<A[i] then max:=A[i];

                  if min>A[i] then min:=A[i];

         end;

         writeln(‘Phan tu lon nhat: ‘,max);

         write(‘Phan tu nho nhat: ‘,min);

         readln

End.