Тема

Дано N чисел. Найдите сумму чисел, больших заданного числа А

Program n1;

Uses CRT;

Const n=10;

Var x:array[1 ... n] of integer;

i, s, a: integer;

begin

Writeln ('Vvedite chisla') ;

For i:=1 to n do

readln (x[i]) ;

Writeln ('Vvedite A') ;

Readln (a) ;

For i:=1 to n do

if x[i]>a then s:=s+x[i];

Writeln ('Summa elementov, bolshih a = ', s) ;

readln

end.