viết chương trình nhập vào một dãy các số nguyên và in max,min của dãy(không sắp xếp dãy)

0 bình luận về “viết chương trình nhập vào một dãy các số nguyên và in max,min của dãy(không sắp xếp dãy)”

1. Program bt4_1;

   Var a,b:integer;

   Begin

        write(‘nhap a,b:’);

        readln(a,b);

        if (a mod b) = 0 then writeln(b,’ la uoc cua ‘,a)

        else writeln(b,’ khong la uoc cua ‘,a);

        if (b mod a) = 0 then writeln(a,’ la uoc cua ‘,b)

        else writeln(a,’ khong la uoc cua ‘,b);

        readln;

   End.

   Bình luận

2. program maxmin;
   uses crt;
   var m:array[1..100] of integer;max,m1,i,min:integer;
   BEGIN
   clrscr;
   Write(‘Nhap so phan tu cua day: ‘);readln(m1);
   for i:=1 to m1 do
   begin write(‘Nhap phan tu thu ‘,i,’ : ‘);readln(m[i]) end;
   max:=m[1];min:=m[1];
   for i:=2 to m1 do
   if m[i]>max then max:=m[i];
   for i:=2 to m1 do
   if m[i]<min then min:=m[i];
   writeln(‘Max: ‘,max);
   writeln(‘Min: ‘,min);
   readln
   END.

    

   Bình luận