Câu 1:

Cú pháp:

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

Hoạt động: 

   - Kiểm tra điều kiện

   - Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp

   - Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện

Câu 2:

Cú pháp:

   if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

Sơ đồ: ~Xem hình~

Câu 3:

program ct;

uses crt;

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

      i,n,Max:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     Max:=A[1];

   for i:=1 to n do

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

   writeln('So lon nhat la: ',Max);

readln;

end.

Học tốt!

câu 1:

-cú pháp:

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

trong đó:

- điều kiện thường là một phép so sánh

- câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.

-Hoạt động

B1: kiểm trả điều kiện

B2: nếu điều kiện sai, câu lệnh sai bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.

câu 2:

-cú pháp:

    If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

xem hình nha bạn

câu 3:

program ct;

uses crt;

var i,n,Max:integer;

A:array[1..100] of integer;

begin

clrscr;

    write('nhap n:=');readln(n);

      for i:=1 to n do

begin

    write('nhap mang A[',i,']:=');readln(A[i]);

end;

   Max:=A[1]; 

     for i:=2 to n do

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

    writeln('gia tri lon nhat la:',Max);

readln

end.