Bài tập : bài 1 Tìm giá trị lớn nhất trong n số tự nhiên bất kì bài 2 tìm giá trị nhỏ nhất trong n số tự nhiên bất kì viết chương trình hộ mk ạ

0 bình luận về “Bài tập : bài 1 Tìm giá trị lớn nhất trong n số tự nhiên bất kì bài 2 tìm giá trị nhỏ nhất trong n số tự nhiên bất kì viết chương trình hộ mk ạ”

1. Bài 1:

   program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n,max:integer;

   begin clrscr;

      write(‘Nhap so n: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        max:=0;

      for i:=1 to n do

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

      writeln(‘Gia tri lon nhat la: ‘,max);

   readln;

   end.

   Bài 2:

   program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n,min:integer;

   begin clrscr;

      write(‘Nhap so n: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        min:=0;

      for i:=1 to n do

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

      writeln(‘Gia tri lon nho la: ‘,min);

   readln;

   end.

   Học tốt!

   Bình luận