Viết chương trình max-min của dãy số nguyên dương nhập từ bàn phím

0 bình luận về “Viết chương trình max-min của dãy số nguyên dương nhập từ bàn phím”

1. uses crt;
   var a:array[1..100] of integer;n,i,max,min:integer;
   begin
    clrscr;
    write(‘Nhap so luong phan tu: ‘); readln(n);
    write(‘Nhap tung phan tu: ‘);
    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;
    write(‘Gia tri lon nhat: ‘,max); writeln;
    write(‘Gia tri nho nhat: ‘,min);
    readln;
   end.

   Bình luận

2. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           i, n, max, min: integer;
   begin
         clrscr;
         write(‘Nhap n = ‘); readln(n);
         for i:=1 to n do
         begin
                write(‘A[‘, i, ‘] = ‘); readln(A[i]);
         end;
         max:=A[1];
         min:=A[1];
         for i:=1 to n do
         begin
                if max<A[i] then max:=A[i];
                if min>A[i] then min:=A[i];
         end;
         writeln(‘Max = ‘, max);
         write(‘Min = ‘, min);
         readln
   end.

   Bình luận