Viết những câu lệnh dể tìm giá trị nhỏ nhất trong mảng A gồm 50 phần tử

0 bình luận về “Viết những câu lệnh dể tìm giá trị nhỏ nhất trong mảng A gồm 50 phần tử”

1. uses crt;

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

   i,n,min: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   end;

   min:=a[1];

   for i:=1 to n do if a[i]<min then min:=a[i];

   writeln (‘so nho nhat trong mang la: ‘,min);

   readln;

   end.

   Bình luận