PascalABC. Дан одномерный массив целых чисел от -20 до 30 из 15 элементов задан через...

Question

PascalABC.
Дан одномерный массив целых чисел от -20 до 30 из 15 элементов задан через генератор случайных чисел. Составить программу подсчета чисел элементов массива больших его пятого элемента.

Answer 1

//PascalABC.Net 3.0, сборка 1053
const
  n=15;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=Random(51)-20;
    Write(a[i],' ')
  end;
  Writeln;
  s:=0;
  for i:=1 to n do
    if a[i]>a[5] then s:=s+a[i];
  Writeln('Сумма искомых элементов равна ',s)
end.

Тестовое решение:
Исходный массив
-10 0 -10 -13 11 7 13 7 -2 -11 12 19 -20 10 -3
Сумма искомых элементов равна 44