Thuy Nguyen
Hỏi từ APP VIETJACK
N=6 A= 5 7 2 8 1 4 tìm MAX
Quảng cáo
1 câu trả lời 346
program maxxx;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
clrscr;
n:= 6;
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Max = ', Max);
Readln;
End.
---------------------
Đáp số: Max = 8
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55468 -
Đã trả lời bởi chuyên gia
31401 -
Đã trả lời bởi chuyên gia
29946
Gửi báo cáo thành công!
