Viết chương trình tìm số lớn nhất trong n số được nhập từ bàn phím
Quảng cáo
1 câu trả lời 400
2 năm trước
uses crt;
Var A;array [1..100] of integer; i,N,Max:integer;
Begin Clrscsr;
Writeln('Nhap so phan tu');
Readln(N);
for i:=1 to N do begin
Writeln('Phan tu ',i, '= ');
Readln(A[i]);
Max:=A[1];
for i:=1 to N do if(Max<A[i]) then Max:=A[1];
writeln('So *** nhat trong day la ',Max);
Readln;
end.
Var A;array [1..100] of integer; i,N,Max:integer;
Begin Clrscsr;
Writeln('Nhap so phan tu');
Readln(N);
for i:=1 to N do begin
Writeln('Phan tu ',i, '= ');
Readln(A[i]);
Max:=A[1];
for i:=1 to N do if(Max<A[i]) then Max:=A[1];
writeln('So *** nhat trong day la ',Max);
Readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
4009
-
3600
-
3116
Gửi báo cáo thành công!