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

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.

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

   arr : Array[1..100] Of ShortInt;

   temp : ShortInt;

   i, j, n : Byte;

begin

   Write('n='); ReadLn(n);

   Randomize;

   for i := 1 to n do

   begin

       arr[i] := Random(11) - 5;

       Write(arr[i], ' ');

   end;

   WriteLn; WriteLn;

   for i := 2 to n do

       for j := n downto i do

           if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))

           then

           begin

               temp := arr[j - 1];

               arr[j - 1] := arr[j];

               arr[j] := temp;

           end;

   for i := 1 to n do

       Write(arr[i], ' ');

end.

1. Развития схемотехники и открытия полупровниковых элементов позволило отказаться от радио ламп и построить компактные вычислительные блоки на базе транзисторов. Скорость вычисления достигается за счет быстрого срабатывания затворов транзисторов что ускоряет переключение ключей в логических схемах.
2. Потому что ученые и маркетологи США поняли что нужно как можно больше людей привлекать в мир пк за счет упрощения программ, делая их более интуитивными и умными. Так стали появляться Текстовые,Табличный, графические редакторы и так далее