Тема

Дано 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.