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)
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
By Valentina
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!
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 :))