Pascal: Задан массив размерностью 100 случайных чисел из
диапазона (-85, +165). Вывести на экран все элементы
массива, а также максимальный из последних 25.

Ваша программа будет находить максимальный элемент из последних 26 чисел

Почему?

Чтобы работать с k последними элементами массива длиной n, нужно пропустить k элементов, т.е. начинать с n-k+1

a[i] := random(250) - 85; - это диапазон от -85 до 164

var a:array[1..100]of integer; i,max,c:integer;   begin     for i:=1 to 100 do      begin        a[i]:=random(251)-85;        if i=76 then          max:=a[i];        if i>76 then          if a[i]>max then            max:=a[i];          write(a[i],' ');      end;      writeln;      writeln(max);   end.