Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất N cũng nhập từ bàn phím Var A:array[1..100] of integer; i, N, max

Bởi

Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất N cũng nhập từ bàn phím
Var A:array[1..100] of integer;
i, N, max: integer;
Begin
(Viết tiếp giùm mình với)

0 bình luận về “Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất N cũng nhập từ bàn phím Var A:array[1..100] of integer; i, N, max”

  1. Begin

           readln(n);

           for i:= 1 to N do

               readln(A[i]);

           max:=A[1];

           for i:=2 to N do

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

           writeln (max);

    readln;

    end.

    Chúc bạn học tốt!

    Bình luận

  2. Begin

           readln(n); for i:= 1 to n do

                      readln(A[i]); max:=A[1];

          for i:=2 to n do

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

           writeln (max); readln;

    k bt có đúng k :))

    Bình luận

Viết một bình luận