câu 1: tìm giá trị lớn nhất của dãy số(gợi ý tương tự ví dụ 3 sgk trang 75).

0 bình luận về “câu 1: tìm giá trị lớn nhất của dãy số(gợi ý tương tự ví dụ 3 sgk trang 75).”

1. Program tim_max ;

   Uses crt ;

   Var i,n,max: integer ;

       A: array [1..150] of integer ;

   Begin

   Write(‘nhap so luong phan tu cua day so , n=’);

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’ =’);

   Readln (A[i]);

   end;

   Max:= A[1];

   For i:=2 to n do

   If A[i]> max then 

   Max:=A[i];

   Writeln(‘gia tri lon nhat cua day so la:’, max);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var i,n,max:integer;

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

   begin  

   clrscr;

   write(‘nhap do dai day so:’); 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];

   for i:=2 to n do

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

   writeln(‘gia tri max’,max);

   readln;

   end.

   Bình luận