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!

0 bình luận về “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. 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.

   Bình luận

2. 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.

   Bình luận