Verified answer

program xxx;

   var i, n : integer;

        a, s : real;

           b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива B:');

  for i:=1 to n do

     readln(b[i]);

  writeln('исходный массив B:');

  for i:=1 to n do

     writeln(b[i]);

  s:=0;

  for i:=1 to n do

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

  writeln('сумма элементов =', s);

  readln

end.

program P_1;
var
i, n : integer;
a, s : real;
b : array [1..1000] of real;
begin
writeln('введите число а');
readln(a);
writeln('введите количество значений массива n');
readln(n);
write('введите элементы массива B');
for i:=1 to n do
readln(b[i]);
writeln('первоначальный массив B');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln('сумма значений =', s);
end.