помогите сделать в паскале! Дан массив, содержащий 70 целых чисел. Опишите на одном из языков

программирования эффективный алгоритм, позволяющий найти и вывести наибольшую

разность двух чисел, содержащихся в массиве.

Question

Информатика

Авдотья

19 апреля, 17:43

помогите сделать в паскале! Дан массив, содержащий 70 целых чисел. Опишите на одном из языков

программирования эффективный алгоритм, позволяющий найти и вывести наибольшую

разность двух чисел, содержащихся в массиве.

+4

Ответы (1)

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

Танюра · Answer 1

Var

i, min, max:integer;

a:array[1 ... 70]of integer;

begin

for i:=1 to 70 do

begin

a[i]:=random (100) ;

write (a[i],' ') ;

if i=1 then min:=a[i]

else if a[i]
if a[i]>max then max:=a[i];

end;

writeln;

writeln ('Ответ: ', max-min) ;

end.