Question

СССССРООООООООООООООЧЧЧЧЧЧННОООООО!!!!!!!!!!

Дан массив целых чисел. Найдите: 
а) Сумму элементов массива, больших данного числа А (А вводить с клавиатуры).

Answer 1

const z = 10;
var
  a: array[1..z] of integer;
  i, n, s: integer;
begin
  readln(n);
  for i := 1 to z do begin
    a[i] := random(100);
    write(a[i], ' ');
    if(a[i] > n) then s := s + a[i];
  end;
  writeln;
  writeln('Сумма эл. > ', n, ' : ', s);
end.