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

Ответ: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.

Объяснение: