паскаль Заполнить массив случайными числами и найти элемент наиболее близкий по значению к максимальному элементу.
Answers & Comments
ZaharovVasya
Const N = 100; Var m:array [1..N] of integer; i,max,o:integer; begin randomize; o:=0; for i:=1 to N do begin m[i]:= random(1000); if m[i]>max then max:=m[i]; end; for i:=1 to N do begin write(m[i],' '); if (m[i]>o) and (m[i]<max) then o:=m[i]; end; writeln; writeln('--=',o,' =--'); readln; end.
Answers & Comments
Var m:array [1..N] of integer; i,max,o:integer;
begin
randomize;
o:=0;
for i:=1 to N do begin
m[i]:= random(1000);
if m[i]>max then max:=m[i]; end;
for i:=1 to N do begin
write(m[i],' ');
if (m[i]>o) and (m[i]<max) then o:=m[i]; end;
writeln;
writeln('--=',o,' =--');
readln;
end.