viết chương trình tìm số lớn nhất trong dãy chữ số viết chương trình tìm số nhỏ nhất trong dãy chữ số

0 bình luận về “viết chương trình tìm số lớn nhất trong dãy chữ số viết chương trình tìm số nhỏ nhất trong dãy chữ số”

1. 1

   program ct;

   uses crt;

   var i,n,Max:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   Max:=A[1]; 

   for i:=2 to n do

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

   writeln(‘gia tri lon nhat la’,Max);

   readln

   end.

   2

   program ct;

   uses crt;

   var i,n,Min:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   Min:=A[1];

   for i:=2 to n do

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

   writeln(‘gia tri nho nhat la’,Min);

   readln

   end.

   Bình luận

2. -CT tìm số lớn nhất:

   program oken;
   uses crt;
   var a: array [1..1000] of integer;
       i,n,max: integer;
   begin   
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       for i:=1 to n do 
           begin
               write(‘a[‘,i,’]: ‘); 
               readln(a[i]);
           end;
       max:=a[1];
       for i:=2 to n do
           if max<a[i] then
               max:=a[i];
       writeln(‘So lon nhat trong day so: ‘,max);
       readln;
   end.

   -CT tìm số nhỏ nhất:

   program oken;
   uses crt;
   var a: array [1..1000] of integer;
       i,n,min: integer;
   begin   
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       for i:=1 to n do 
           begin
               write(‘a[‘,i,’]: ‘); 
               readln(a[i]);
           end;
       min:=a[1];
       for i:=2 to n do
           if min>a[i] then
               min:=a[i];
       writeln(‘So be nhat trong day so: ‘,min);
       readln;
   end.

   Bình luận