Câu 1:

Bước 1: Nhập 5 số a,b,c,d,e

Bước 2: min <-a;

Bước 3:

3.1: Nếu b<min thì min<-b;

3.2: Nếu c<max thì min<-c;

3.3: Nếu d<max thì min<-d;

3.4: Nếu e<max thì min<-e;

Bước 3: Xuất max ra màn hình

Câu 2:

Program NN;
Uses crt;
Var a,b,p,s: real;
Begin
        Clrscr;
        Write('Nhap a,b: '); Readln(a,b);
        s:=a*b;
        p:=(a+b)*2;
        Writeln('Dien tich = ',s:0:2);
        Write('Chu vi = ',p:0:2);
        Readln
End.

Câu 1:

Bước 1: Nhập 5 số a1, a2, a3, a4, a5;

Bước 2: Min:=a1; Nếu min>a2 thì min:=a2;

Bước 3: Nếu min>a3 thì min:=a3;

Bước 4: Nếu min>a4 thì min:=a4;

Bước 5: Nếu min>a5 thì min:=a5;

Bước 6: Thông báo kết quả và kết thúc thuật toán.

Câu 2:

program cau2;

uses crt;

var a,b,S1,S2:integer;

Begin

         write('nhap chieu dai:');readln(a);

         write('nhap chieu rong:');readln(b);

         S1:=(a+b)*2;

         writeln('chu vi hinh chu nhat la:',S1);

         S2:=a*b;

         writeln('dien tich hinh chu nhat la:',S2);

         readln;

End.