Определить сумму элементов массива Р(n), значения которых > заданного Т (программа Паскаль)

Question

Определить сумму элементов массива Р(n), значения которых > заданного Т

Answer 1

USES Crt;
 CONST   N=30;
 VAR
   P:ARRAY[0..N] OF INTEGER;
   I,T:BYTE;   S:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива случайными числами }
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     P[I]:=Random(30);   Write(P[I]:3);
   End;   WriteLn;
   Write(' Введите значение переменной   ');   ReadLn(T);
   S:=0;
   FOR I:=1 TO N DO
     IF P[I]>T THEN S:=S+P[I]; { сумма элементов массива > T }
   WriteLn(' Сумма элементов массива > заданного значения = ',S);
 END.