Помогите решить задачу в паскале.
Даны три массива:
A = {17.2, 9.3, 14.5, -11.7, 4.3,
5.9, -11.9, 12.3, -14.1, -15.3},

B = {-1.2, 4.2, 5.9, -18.1, 21.2,
-3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4},

C = {3.5, 8.4, -3.2, 4.5, -8.4,
-9.5, 1.5,9.3}.

Для
каждого из массивов найти суммы положительных элементов. Использовать
подпрограмму.

function subprogram(a: array of real): real;
begin
  foreach obj: real in a do
    if (obj > 0) then
      result += obj;
end;

var
  a: array of real := (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3);
  b: array of real := (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4);
  c: array of real := (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3);

begin
  writeln(a => , subprogram(a));
  writeln(b => , subprogram(b));
  writeln(c => , subprogram(c));
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.