Question

viết chương trình nhập n số và cho biết số nhỏ nhất vừa nhập là số mấy?

GIÚP EM VỚI ! MAI EM THI ÒI!

Answer 1

Program Tin;

Uses crt;

Var min,i,n:integer;

      A:array[1..1000] of integer;

Begin

  Clrscr;

  Write('Nhap n: ');readln(n); 

  Writeln('Nhap ',n,' phan tu: ');

  For i:= 1 to n do 

    Begin

    Write('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 vua nhap la: ',min);

  readln;

End.

 

Answer 2

uses crt;

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

i,n,min: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:=1 to n do 

 if min>a[i] then min:=a[i];

writeln(min);

readln;

end.