Viết chương trình tìm số lớn nhất trong dãy A các số a1,a2,…an cho trước.

0 bình luận về “Viết chương trình tìm số lớn nhất trong dãy A các số a1,a2,…an cho trước.”

1. phần thân thôi nhé bạn tự mình khai báo biến:

   begin

   max:=a[1];

   for i:=2 to n do

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

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

   readln

   end.

   Bình luận

2. uses crt;

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

   i,n,ln:integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’); readln(a[i]);

   end;

   {——————–xuat-day———————}

   for i:=1 to n do

   write(a[i]:4);

   {——————-xu-ly————————-}

   writeln;

   ln:=a[1];

   for i:=1 to n do

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

   writeln(‘so lon nhat la: ‘,ln);

   readln;

   end.

   thuật toán:

   Bước 1: nhập các số a₁,a₂,…,a_n

   Bước 2: Max ← a₁ và i ← 1

   Bước 3: Nếu a_i > Max, gán Max ← a_i

   Bước 4: i ← i + 1

   Bước 5: nếu i ≤ n, quay lại bước 2

   Bước 6: thông báo giá trị Max và kết thúc thuật toán

   Bình luận