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

Question

Информатика

Гуля

21 марта, 14:25

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

+1

Ответы (1)

Знаете ответ?

Борюня · 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.