Question

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

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]<min then min:=a[i];
  if a[i]>max then max:=a[i];
  end;
writeln;
writeln('Ответ: ',max-min);
end.