Question

Массив n элементов (random) подсчитать сумму элементов превышающих величину T. Pascal

Answer 1

var a:array[1..1000] of integer;
n,i,T,s:integer;
begin
write('Введите количество элементов массива (n<1000): ');
readln(n);
for i:=1 to n do a[i]:=random(51);
write ('Массив: ');
for i:=1 to n do write(a[i],'  ');
writeln;write('Введите величину T: ');
readln(T);
for i:=1 to n do
if a[i]>T then s:=s+a[i];
writeln('Сумма элементов превышающих величину T = ',T,' равна ',s);
readln
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var t:=Readinteger('T=');
  Writeln('S=',a.Where(p->p>t).Sum)
end.

Пример
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159