 
исп И1 
цел N; N:=100   | максимальное количество чисел 
вещ таб a[1:N] 
цел n           | количество запомненных чисел 
n:=0 
 
алг запомнить (арг вещ x)                            |(А118) 
дано n<N 
надо | к запомненным числам добавлено число x 
нач 
n:=n+1; a[n]:=x 
кон 
 
алг цел число больших (арг вещ a0)                   |(А119) 
надо |  Дзнач А = количество чисел больших, чем a0 
нач цел i 
знач:=0 
нц для i от 1 до n 
если a[i]>a0 то знач:=знач+1  все 
кц 
кон 
 
алг вещ минимум                                     | (А120) 
дано n>0 
надо | знач = минимальное из запомненных чисел 
нач цел i 
знач:= a[1] 
нц для i от 2 до n 
если a[i]< знач то знач := a[i]  все 
кц 
кон 
кон_исп 
 
 
 
