Viết chương con trình tìm số lớn nhất của dãy số T gồm s phần tử số nguyên (s nhỏ hơn hoặc bằng 500) giúp mình với ạ

0 bình luận về “Viết chương con trình tìm số lớn nhất của dãy số T gồm s phần tử số nguyên (s nhỏ hơn hoặc bằng 500) giúp mình với ạ”

1. uses crt;
   var T:array[1..500] of integer;
       i,n,max:integer;
   procedure TT;
   begin
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(T[i]);
      end;
      max:=T[1];
      for i:=2 to n do if T[i]>max then max:=T[i];
      write(‘Max=’,Max);
   end;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      TT;
      readln;
   end.

   Bình luận

2. program:Bai_tap_1;

   uses crt;
   var T:array[1..500] of integer;
       i,n,max:integer;
   procedure TT;
   begin
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(T[i]);
      end;
      max:=T[1];
      for i:=2 to n do if T[i]>max then max:=T[i];
      write(‘Max=’,Max);
   end;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      TT;
      readln;
   end.

   Bình luận