// task 1,2 const n= 15; var a:array[1..15]of integer; i,min,max:integer; begin min:=99999; max:=0; //Заполняем массив случайными числами //И выводим его for i:=1 to 15 do begin a[i]:=random(100); write(a[i]:5); if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; writeln(); //Вывод в обратном порядке for i:=1 to 15 do write(a[n-i+1]:5); writeln(); writeln ('Разность max-min ',max-min); end.