Câu 1: viết cú pháp câu lệnh lặp với số lần chưa biết trước? Lấy ví dụ minh họa

Câu 2: viết cú pháp khai báo biến mảng trong passcal ? Lấy ví dụ minh họa

Câu 3: viết phương trình nhập vào một dãy số gồm N phần tử và in ra màn hình phần tử nhỏ nhất trong dãy một biến mảng

=> giúp mình với ạ mình vote cho không chép mạng

1)   

`-` Cú pháp :

While < điều kiện > do  < câu lệnh > ;

`-` Hoạt động : ban đầu, chương trình kiểm tra điều kiện. Nếu điều kiện đúng thì thực hiện câu lệnh và quay lại kiểm tra điều kiện cho đến khi điều kiện sai thì bỏ qua câu lệnh và thoát vòng lặp

`-`Ví dụ : In ra màn hình từ 1 → 5 

Uses crt ;

 var i : byte ;

begin

clrscr;

i := 1 ;

while i<= 5 do

   begin

  write(i,' ' );

   i := i + 1 ;

   end ;

end .

2) Theo chương trình tin học 8 thì chỉ có khai báo kiểu trực tiếp

`-` Cú pháp : Var < tên biến mảng > : Array[<chỉ số đầu> .. <Chỉ số cuối>] of < Kiểu dữ liệu > ;

`-`  Ví dụ: 

`+` Var a : array[1..100] of integer ;

`+` Var s : array[1..23] of string ;

`+` ...

3) 

uses crt;
 var a : array[1..100] of longint ;
 n , i , min : longint ;
  begin
   clrscr;
    write('Nhap n: ');
     readln(n);
 for i := 1 to n do
     begin
    write('a[',i,']=');
    readln(a[i]);
     end ;
min := a[1];
 for i := 2 to n do
    if min >  a[i] 
        then min := a[i];
    writeln('Gia tri nho nhat la: ',min);
     readln
       end .