Cho N và dãy a1-aN. Viết chương trình để tìm ra giá trị lớn nhất của dãy.

0 bình luận về “Cho N và dãy a1-aN. Viết chương trình để tìm ra giá trị lớn nhất của dãy.”

1. Uses crt;

   var a:array[1..10000] of longint;

   max,n,i:longint;

   begin

   clrscr;

   write(‘N=’);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];

   writi(max);

   readln

   end.

   Bình luận

2. var a:array[1..10000] of longint;

   max,n,i:longint;

   begin

   write(‘nhap so luong phan tu’);readln(n);

   for i:=1 to n do read(a[i]);readln;

   max:=a[1];

   for i:=2 to n do

   if max<a[i] then max:=a[i];

   write(max);

   readln

   end.

   Bình luận