cho dãy số N phần tử . Viết chương trình tìm số lẻ lớn nhất trong dãy số đó

0 bình luận về “cho dãy số N phần tử . Viết chương trình tìm số lẻ lớn nhất trong dãy số đó”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
        i, n, max: integer;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           for i:=1 to n do
           begin
                   write(‘A[‘, i, ‘] = ‘); readln(A[i]);
           end;
           max:=1;
           for i:=1 to n do if A[i] mod 2 <>0 then
                   if max<A[i] then max:=A[i];
           write(‘max = ‘, max);
           readln
   end.

   Bình luận