1. Viết Chương Trình nhập 1 dãy số n nguyên dương từ bàn phím, in ra màn hình số nhỏ nhất và số lớn nhất từ dãy n vừa nhập. giúp mik vs ạ, cảm ơn!

1. Code:

uses crt;

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

n,i,max,min:integer

begin 

clrscr;

write('nhap n: ');readln(n);

for i:=1 to n do readln(a[i]);

max:=a[1];

min:=a[1];

for i:=2 to n do

begin

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

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

end;

writeln('so lon nhat trong day la: ',max);

writelm('so nho nhat trong day la: ',min);

readln

end.

Program Hotboy ;

Uses crt;

Var i,n,Max,Min:integer;

S:longint;

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

Begin

Clrscr;

S:=0;

Write('nhap n tu ban phim');

Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

   Max:=A[1]; Min:=A[1];

For i:=2 to n do

   Begin

          if Max<A[i] then Max:=A[i];

          if Min>A[i] then Min:=A[i];

    end;

Write('so nho nhat la',Min);

Write('so lon nhat la',Max);

Readln

End.