Pascal: Задан массив размерностью 100 случайных чисел из

диапазона (-85, + 165). Вывести на экран все элементы

массива, а также максимальный из последних 25.

Var

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

i, max: integer;

begin

writeln ('Построенный массив ') ;

for i : = 1 to 100 do begin

a[i] : = random (251) - 85;

write (a[i], ' ') ;

if i = 76 then max : = a[i];

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

end;

Writeln ('| Максимальный элемент из последних 25-ти чисел массива равен ', max) ;

end.

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.