0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program mang;
uses crt;
var A:array [1..50] of integer;
n,i,max: integer;
Begin
clrscr;
write('Nhap so ban: '); readln(n);
max:=1;
for i:=1 to n do
begin
write('Chieu cao ban thu ',i,' (cm): '); readlnA[i];
if max<A[i] then max:=i;
end;
write('Ban cao nhat: ban thu ',max);
readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
program phuongt;
uses crt;
var A: array[1..50] of integer;
i, max, s: integer;
begin
clrscr;
for i:=1 to 50 do
begin
write('Nhap chieu cao cua ban thu ', i, ' (cm): '); readln(A[i]);
end;
max:=A[1];
for i:=1 to 50 do if max<A[i] then
begin
max:=A[i];
s:=i;
end;
write('Ban thu ', i, ' cao nhat va cao ', max, ' cm');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
45
0
Cảm ơn bạn