Cho dãy số A các số a1, a2,…,an viết thuật toán tìm số lớn nhất

0 bình luận về “Cho dãy số A các số a1, a2,…,an viết thuật toán tìm số lớn nhất”

1. input : dãy các số {a1,a2,….,an}

   output : Max = max {a1,a2,…,an}

   Thuật toán

   b1 : Max := a1 ;

   b2 : Max < a2 –> Max := a2

   b3 : Max < a3 –> Max := a3

   ….

   bn : Max < an –> Max := an

   `b_{n + 1}` : In max  –> 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.

   Bình luận