{* Задача 450 *}

Unit ZADACH450;
Interface
Implementation
Begin
 writeln('Задан одномерный массив a(n). Найти номер последнего элемента меньшего заданного числа betta. Количество положительных элементов и сумму элементов, больших 3');
End.

Program zadach450;

Uses zadach450.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10;
Var {* Объявление переменных *}
  a     : Array [1..n] Of real;
  betta : real;
  s     : real;
  n1    : integer;
  k     : integer;
  i     : integer;
Begin
  k := 0;
  s := 0;
  writeln ('Введите betta');
  readln (betta);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    writeln ('Введите элементы');
    readln (a[i]);
  End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    If a[i]0 Then
      k := k + 1;
    If a[i] > 3 Then
      s := s + a[i];
  End;
  writeln ('n1=', n1, ' s=', s, ' k=', k);
End.