Mn giúp mk với! Viết thuật toán tìm max cho 3 dãy số sau: Dãy 1: 5, 2, 8, 9, 1 Dãy 2: 9, 6, 10, 20, 15 Dãy 3: 3, 6, 8, 5 Cảm ơn mn nhiều!????????????????

0 bình luận về “Mn giúp mk với! Viết thuật toán tìm max cho 3 dãy số sau: Dãy 1: 5, 2, 8, 9, 1 Dãy 2: 9, 6, 10, 20, 15 Dãy 3: 3, 6, 8, 5 Cảm ơn mn nhiều!????????????????”

1. * Thuật toán:
   Input: Cho giá trị của 1/3 dãy số nguyên.
   Output: Tìm giá trị lớn nhất trong 1/3 dãy số nguyên trên.
   * Mô tả thuật toán:
   Bước 1: Nhập N và dãy số nguyên $a_{1}$, $a_{2}$ …, $a_{N}$. 
   Bước 2: Max <- $a_{1}$, i<-2;
   Bước 3: Nếu i> N thì đưa ra giá trị Max rồi kết thúc;
   Bước 4: Nếu Max<a[i]  thì Max := a[i];
   Bước 4.5. i := i + 1 rồi quay lại bước 3;

   * Viết chương trình nhập vào 1/3 dãy số trên để kiểm tra kết quả:
   Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,max:integer;
   Begin
   Clrscr;
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   Writeln;
   For i:=1 to n do 
   Begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   max:=a[1];
   For i:=2 to n do If max<a[i] then max:=a[i];
   Write(‘ So lon nhat trong day do la: ‘,max:2);
   Readln
   End.

   Bình luận

2. Var a:array[1..1000] of integer;
   i,n,max:integer;
   Begin
   Clrscr;
   Write(‘ Nhap so ptu N = ‘); Readln(n);
   Writeln;
   For i:=1 to n do 
   Begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End; 
   max:=a[1];
   For i:=2 to n do If max<a[i] then max:=a[i];
   Write(‘ So lon nhat trong day do la: ‘,max:2);
   Readln;
   End.              

   Bình luận