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

Question

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

Comments

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin var a:=ArrRandom(100,-85,165); a.Println; Writeln('Макс. из последних 25=',a.Skip(75).Max)end.

Answer 1

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.

Comments

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

---

Почему?

---

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

---

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

Answer 2

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.