паскаль Заполнить массив случайными числами и найти элемент наиболее близкий по значению...

Question

паскаль Заполнить массив случайными числами и найти элемент наиболее близкий по значению к максимальному элементу.

Comments

сколько элементов в массиве? и что значит наиболее близкий по значению к максимальному элементу

---

типо если массив 1 3 6 2 8 то число будет 6 ?

---

100 элементов

---

получается так

---

щас попробую

Answer 1

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]writeln;
writeln('--=',o,' =--');
readln;
end.

Comments

randomize а это что такое?)