viết thuật toán tìm số bé nhất trong dãy số n Giúp e với ạaaa

0 bình luận về “viết thuật toán tìm số bé nhất trong dãy số n Giúp e với ạaaa”

1. B1:nhập N và dãy a1…an

   B2:minsuy ra a1 , i sr a2

   B3: nếu i bé hơn N thì đưa ra min kt

   B4 nếu min bé hơn ai thì đưa ra min

   B5 i lớn hơn i-1 rồi quay lại B3

   Bình luận

2. Uses crt;

   Var i,n,max,min: integer;

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

   Begin

   Clrscr;

   Write(‘ Nhap do dai cua day so, n= ‘);

   Readln(n);

   Writeln(‘Nhap cac phan tu cua day so: ‘);

   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= ‘, max);

   Writeln(‘So nho nhat la min= ‘, min);

   Readln;

   End.

   Bình luận