Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где

X(1) - сумма элементов массива R, значения которых лежат в интервале  [2;4];

X(2) - то же для массива Q; 

X(3) - то же для массива P.

Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.

 

PascalABC

Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)

Вроде должно быть так, если есть какие-то вопросы по коду или вы нашли ошибку -пишите в комментарии

Type arr = array[1..10] of integer; {создаем новый тип, являющийся массивом}var   i:integer;  s:real;  R,Q,P:arr;                                   X:array[0..3] of integer;function Sum(a: arr): integer;  {функция вычисления суммы элементов массива}var i:integer;  beginforeach i in a do                   {вычисляем сумму элементов по заданному правилу}  if (i>=2) and (i<=4) then Result :=Result+iend;                                     {результатом функции будет сумма}beginrandomize;          {заполняем массивы случайными числами}for i:=1 to 10 do  begin  R[i]:=random(10);  Q[i]:=random(10);  P[i]:=random(10)  end;write('R: ');                 {распечатываем содержимое массивов на экране}for i:=1 to 10 do write(R[i],' ');writeln;write('Q: ');for i:=1 to 10 do write(Q[i],' ');writeln;write('P: ');for i:=1 to 10 do write(P[i],' ');writeln;           {а тут собственно само решение задачи}X[1]:=Sum(R);{передаем в ф-цию Sum массив R, она считает сумму и записывает в Х1}writeln('X[1]=',X[1]);  X[2]:=Sum(Q);{передаем в ф-цию Sum массив Q, она считает сумму и записывает в Х2}  writeln('X[2]=',X[2]);  X[3]:=Sum(P);{передаем в ф-цию Sum массив P, она считает сумму и записывает в Х3}  writeln('X[3]=',X[3])end.