Viết chương trình nhập vào 2 phép tính. Mỗi phép tính gồm 2 số nguyên dương và 1 phép toán có thể là cộng, trừ, nhân, chia.

uses crt;

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

      i,n,min, vt: integer;

begin

clrscr;

write (‘nhap so phan tu: ‘);  readln (n);

for i:=1 to n do

begin

write (‘nhap a[‘,i,’]: ‘);   readln (a[i]);

if min>a[i] then

begin

min:=a[i];

vt:=i;

end;

end;

writeln (‘phan tu nho nhat la a[‘,vt,’]= ‘,a[vt]);

readln;

end.