Quảng cáo
1 câu trả lời 116
2 năm trước
program vidu1;
uses crt;
var arrayint:array[1..250] of integer;
n,i,mi:integer;
begin
clrscr;
writeln('nhap vao so phan tu ');
readln(n);
for i:=1 to n do
begin
writeln('phan tu thu ',i,'=');
readln(arrayint[i]);
end;
mi:=1;
for i:=2 to n do
begin
if arrayint[i]>arrayint[mi]
then
mi:=i;
end;
writeln('gia tri *** nhat la ',arrayint[mi],' chi so la ',mi);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!