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

Арчи171 Арчи171    2   23.09.2019 12:53    0

Ответы
arianadorofeva arianadorofeva  08.10.2020 12:19
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
ПОКАЗАТЬ ОТВЕТЫ
пельмешик2 пельмешик2  08.10.2020 12:19
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика