Câu 4:

Program cau4;

Uses crt;

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

      N,i,max:integer;

Begin

Clrscr;

Write('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 A[i]<min then min:=A[i];

Writeln(min,' la so nho nhat');

Readln

End.

Câu 5:

Program cau5;

Uses crt;

Var a,b,c,max:real;

Begin

Clrscr;

Write('Nhap lan luot 3 so do');

Readln(a,b,c);

max:=a;

If b>max then max:=b;

If c>max then max:=c;

Writeln('So lon nhat:',max);

Readln

End.

Câu 1:

Source Code Tính Chu Vi Và Diện Tích Hình Chữ Nhật 

#Chiều Dài
length = float(input("Nhập Chiều Dài: "))
#Chiều Rộng
width = float(input("Nhập Chiều Rộng: "))
#Chu Vi
print("\nChu Vi Hình Chữ Nhật: " + str((length + width) * 2))
#Diện Tích
print("Diện Tích Hình Chữ Nhật: " + str(length * width))

Câu 2:

Source Code Giải Phương Trình 
(ax+bx+c=0)

import math
#Hệ số 
a = float(input("Nhập Hệ Số a: "))
b = float(input("Nhập Hệ Số b: "))
c = float(input("Nhập Hệ Số c: "))
delta = b*b - 4*a*c
#giải phương trình
if delta < 0:
    print("\nPhương Trình Vô Nghiệm !")
elif delta == 0:
    print("\nPhương Trình Có Nghiệm Kep x1 = x2", -b/(2*a))
else:
    x1 = (-b - math.sqrt(delta))/(2*a)
    x2 = -b/a - x1
    print("\nPhương Trình Có 2 Nghiệm Phân Biệt ")
    print("x1 = ",x1, "x2 = ", x2)

mik giử bạn ạ