Tìm số lớn nhất trong dãy số nguyên A gồm N phần tử (A1, A2, An-) N = 5 A= 7 2 1 8 4

0 bình luận về “Tìm số lớn nhất trong dãy số nguyên A gồm N phần tử (A1, A2, An-) N = 5 A= 7 2 1 8 4”

1. uses crt;

   var A:array[1..100] of integer; n,i,MAX :integer; 

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);
   For i:=1 to n do
   begin
   write(“A[“,i,”]=”);
   readln(A[i]);
   end;
   MAX:=A[1];
   For i:=1 to n do
   if MAX<A[i] then A[i]=MAX;
   write(“MAX);
   readln;
   end.

   Bình luận

2. 1.   var n , i, k,  sum: longint;

    2      a: array[1…1000000] of longint;

   3

   4. begin

      5    read(n);

     6     for i : = 1 to n do

        7         read(a[i]);

       8   read(k);

       9   sum := 0;

       10   for i :=1 to k do 

        11  sum := sum +a[i];

       12   Write(sum);

   13 end.

   5. :  7 2 1 8 4 

   Bình luận