Сумма элементов массива, больших А

[Sultan]

Народ помогите написать прогу по массивам задание такое:
1. Найти сумму элементов, больших данного числа А (А вводится с клавиатуры).
Заранее благодарен!!!

[RSLoader]

А какой массив? Целочисленный, вещественный, одномерный, двумерный?..
Вот код для одномерного целочисленного, А - целое:

var
  mas:array[1..100]of Integer;
  A,i,n,sum:Integer;
begin
  write('4islo elementov massiva: ');
  readln(n);
  writeln('Vvedite massiv: ');
  for i:=1 to n do read(mas[i]);
  write('Vvedite 4islo A: ');
  readln(A);
  sum:=0;
  for i:=1 to n do if mas[i]>A then sum:=sum+mas[i];
  writeln('Summa elementov massiva, bolshih ',A,': ',sum);
  readln;
end.