Question

В массиве записано общее число учащихся в каждой параллели школы (с 5-го по 11- й классы). Найти номер «самой старшей» параллели, в которой учатся более 120 учащихся.
В ПАСКАЛЕ!!!

Answer 1

##

var a := ArrRandom(7, 100, 155);

a.Println;

var maxp := -1;

for var i := a.High downto 0 do

 if a[i] > 120 then

 begin

   Print(i + 1);

   exit

 end;

Print('Нет паралллелей, в которых более 120 учеников')