viết chương trình nhập một dãy số tối đa 100 số, sau đó tìm in ra GTLN , GTNN và vị trí GTLN, GTNN

0 bình luận về “viết chương trình nhập một dãy số tối đa 100 số, sau đó tìm in ra GTLN , GTNN và vị trí GTLN, GTNN”

1. program tim_max_min;

   uses crt;

   var i,n,max,min:integer;

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

   begin

   Clrscr;

   write(‘Ban muon nhap bao nhieu phan tu= ‘);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;

   writeln(‘so lon nhat la:’,max);

   writeln(‘so be nhat la:’,min);

   writeln(‘Vi tri cua so lon nhat la: ‘);

   for i:=1 to n do

   if max=a[i] then write(i:4);

   writeln;

   writeln(‘Vi tri cua so nho nhat la: ‘);

   for i:=1 to n do

   if min=a[i] then write(i:4);

   readln;

   end.

   Chúc Bạn Hc Thật Tốt

   Bình luận

2. uses crt;

   Var a:array[1..1000] of integer;
   i,n,max,min:integer;
   Begin
   Clrscr;
   Write(‘Nhap do day day 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:=2 to n do
   Begin
   if max<a[i] then max :=a[i];
   if min >a[i] then min :=a[i];
   End;
   Writeln(‘ So lon nhat trong day la: ‘, max);
   Write(‘Vi tri cua so nam thu: ‘);
   For i:=1 to n do
   If max=a[i] then write(i:2);
   WRITELN;
   WRITELN;
   Writeln(‘ So nho nhat trong day la: ‘, min);
   Write(‘Vi tri cua so nam thu: ‘);
   For i:=1 to n do
   If min=a[i] then write(i:2);
   Readln
   End.
   *Nhớ tick và vote làm câu trả lời hay nhất giúp mình nhé! Thank kiu :33

   Bình luận