viết chương trình pascal 1 ) tìm số nhỏ nhất 2) Tìm số âm ( nhỏ hơn 0) Giúp mình với mai mk kiểm tra rồi cảm ơn

0 bình luận về “viết chương trình pascal 1 ) tìm số nhỏ nhất 2) Tìm số âm ( nhỏ hơn 0) Giúp mình với mai mk kiểm tra rồi cảm ơn”

1. Program qtruong;
   Uses crt;
   Var n, i, min, so_am: integer;

         A: array[1..1000] of integer;
   Begin
   Clrscr;
   Write(‘Nhap 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 min>A[i] then min:=A[i];
   So_am:=0;
   For i:=1 to n do if A[i]<0 then inc(so_am);
   Writeln(‘So nho nhat la: ‘,min);
   Writeln(‘Co tat ca ‘,so_am,’ so am’);
   Readln
   End.

   Bình luận