Viết thuật toán Tìm giá trị lớn nhất của dãy số nguyên sau N=8 7, 8 , 10, 6 ,5 ,11 ,5 ,4

0 bình luận về “Viết thuật toán Tìm giá trị lớn nhất của dãy số nguyên sau N=8 7, 8 , 10, 6 ,5 ,11 ,5 ,4”

1. Input : cho giá trị của 8 số nguyên

   Output : Tìm GTLN

   thuật toán

   bước 1 : nhập số n=8

   bước 2: nhập các số nguyên

   bước 3: gán a[1] lớn nhất

   nếu a[1] a[i] lớn nhất

   bước 4 : in ra màn hình kết quả và kết thúc thuật toán

   mình viết ct vd luôn nha

   program timgtln;

   uses crt;

   var n ,max:integer

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

   begin

   clrscr;

   write(‘nhap so n’,n); readln(n);

   for i:=1 to n do

   begin

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

   end;

   a[1]:=max ;

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

   writeln(‘gia tri lon nhat cua day so nguyen la’,max);

   readln

   end.

   Bình luận