Question

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

Answer 1

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.