Составить программу в паскале: дан одномерный массив найдите разность наибольшего и наименьшего элемента этого массива

Var 
a:array[1..10] of integer; 
max,min,i:integer;
Begin 
for i:= 1 to 10 do Begin   
write('Введите ',i,'-ый элемент массива ');   
Readln(a[i]);   
if i=1 then Begin     
min:=a[i];     
max:=a[i];   
End;   
if a[i]>max then max:=a[i];   
if a[i]<min then min:=a[i]; 
End; 
Write('Разность наибольшего и наименьшего равна ',max-min);
End.  

Еще несколько лет назад мы даже не представляли, что компьютеры смогут играть в шахматы не хуже гроссмейстеров. Что информация будет храниться не на локальных компьютерах, а в «облаке»… Мы, безусловно, живем в эпоху «информационной революции»: объемы данных растут небывалыми темпами, порождая необходимость в постоянном развитии технологий.

Чтобы идти ногу со временем, учебные заведения по всему миру вводят новые специальности. Представляем 5 уникальных профессий будущего, связанных с обработкой данных и искусственным интеллектом.

1. Специалист по обработке Big Data



Термином Big Data принято описывать большие массивы разнообразной информации со сложной, неоднородной или вообще неопределённой структурой. Эта информация может быть структурирована или не структурирована, но специалист по работе с Big Data обязан уметь работать с ней и приводить к удобному для восприятия виду. Сама же наука о данных (Data Science) лежит на стыке математики, статистики, информатики, бизнеса и экономики. Соответственно, хороший специалист должен иметь знания во всех этих сферах. Рынок Big Data сейчас только начинает формироваться и в скором будущем может стать одним из основных в сфере IT.

2. Специалист по разработке нейронных сетей

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

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=MatrixRandom(3,2,-99,99);
  Writeln('Массив А');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(a[i,j]:4);
    Writeln
    end;
  var b:=MatrixRandom(3,2,-99,99);
  Writeln('Массив B');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(b[i,j]:4);
    Writeln
    end;
  var c:array[0..2,0..1] of real;
  Writeln('Результирующий массив');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do begin
      c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
      end;
    Writeln
    end
end.

Тестовое решение
Массив А
 -91 -93
 -62   9
 -97   6
Массив B
 -64  18
  57 -34
 -65 -30
Результирующий массив
  582.4 -167.4
 -353.4  -30.6
  630.5  -18.0