Viết chương trình nhập 1 dãy n số. Cho biết số LN và số NN (In ra màn hình)
Cho biết số LN và số NN ở vị trí nào? (In ra màn hình)
Viết chương trình nhập 1 dãy n số. Cho biết số LN và số NN (In ra màn hình)
Cho biết số LN và số NN ở vị trí nào? (In ra màn hình)
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,max,min,vitri,vitri2:integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);
readln(a[i]);
end;
max:=a[1]; min:=a[1]; vitri:=1; vitri2:=1;
for i:=2 to n do
if a[i]>max then
begin
max:=a[i];
vitri:=i;
end
else
if a[i]<min then
begin
min:=a[i];
vitri2:=i;
end
else
if (a[i]=max) and (a[i]=min) then Max:=Min;
writeln(‘Max: ‘,max,’ vi tri: ‘,vitri);
writeln(‘Min: ‘,min,’ vi tri: ‘,vitri2);
readln;
end.
uses crt;
var n,i,max,min,ln,nn:longint;
a:array[0..1000000]of longint;
begin
clrscr;
read(n); max:=-999999999; min:=999999999;
for i:=1 to n do
begin
read(a[i]);
if a[i]>max then begin
max:=a[i];
ln:=i;
end;
if a[i]<min then begin
min:=a[i];
nn:=i;
end;
end;
writeln(max,’ ‘,ln);
writeln(min,’ ‘,nn);
readln;
end.