Câu 1:
program GIATRINHONHAT;
uses crt;
var n,i,min:integer;
a:array[1..1000] of integer;
begin
clrscr;
i:=0;
write('Nhap n: '); readln(n);
write('Nhap so thu 1: '); readln(a[1]);
min:=a[1];
for i:=2 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
if min>a[i] then min:=a[i];
end;
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Câu 2:
program GIAIPHUONGTRINHBACNHAT;
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap he so a: '); readln(a);
write('Nhap he so b: '); readln(b);
if a=0 then writeln('Khong hop le (a khac 0). Nhap lai!!!')
else writeln('Phuong trinh co nghiem duy nhat: x=',-b/a:2:4);
readln;
end.
