Pascal ABC. Даны три массивы. Определить общее количество элементов массивов, значение которых лежат в интервале (подпрограмма)

[MarsLoveMoon]

Элементы исходных массивов создаются генератором случайных чисел так, чтобы созданные значения были как положительные, так и отрицательные. Даны массивы В1(7), В2(10), В3(7). Определить общее количество элементов массивов В1, В2, В3, значение которых лежат в интервале [1, 4]. Вычисление количества элементов массива, лежащих в интервале [1, 4], организовать в виде подпрограммы.

Пожалуйста помогите решить задачу в Pascal ABC.



_________
Название темы не соответствует правилам форума

Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил название и предупредил Вас.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[ZX Spectrum-128]

А что именно вызывает затруднения? Оформление подпрограммы?

[MarsLoveMoon]

Её решение и написание, не говоря уже о подпрограмме

[Vanta11a]

Покажите, как массивы вводите.

[Serge_Bliznykov]

Сообщение от MarsLoveMoon

Её решение и написание, не говоря уже о подпрограмме

и, как я понимаю, Вы просто на халяву ожидаете получить полностью готовый код, сами делать ничего не собираетесь?..


задача очень простая, "азбучная", если не разберётесь в ней, дальше будет всё ещё хуже... Начните с того, что почитайте, что такое массивы, как они описываются (объявляются), как к элементам массива идёт обращение.
Начните писать программу и всё, со временем, получится.
Дорогу осилит идущий.

[MarsLoveMoon]

Сообщение от Vanta11a

Покажите, как массивы вводите.

program eror;
type mas=array[1..10] of integer;
var
 B1,B2,B3:mas;
i,s:integer;
function max(var x:mas;n:integer):integer;
var
 i,tmp:integer;
begin
tmp:=x[1];
for i:=1 to n do
begin
if x[i]>tmp then
tmp:=x[i];
end;
max:=tmp;
end;
begin
writeln('Массив первый :');
for i:=1 to 4 do
begin
B1[i]:=random(40)-13;
write(B1[i]:4);
end;
writeln;
writeln('Массив второй :');
for i:=1 to 4 do
begin
B2[i]:=random(60)-50;
write(B2[i]:4);
end;
writeln;
writeln('Массив третий :');
for i:=1 to 4 do
begin
B3[i]:=random(40)-13;
write(B3[i]:4);
end;
writeln;
end.

Сообщение от Serge_Bliznykov

и, как я понимаю, Вы просто на халяву ожидаете получить полностью готовый код, сами делать ничего не собираетесь?..


задача очень простая, "азбучная", если не разберётесь в ней, дальше будет всё ещё хуже... Начните с того, что почитайте, что такое массивы, как они описываются (объявляются), как к элементам массива идёт обращение.
Начните писать программу и всё, со временем, получится.
Дорогу осилит идущий.

Нет. я не понимаю как определить общее количество элементов массивов.

Сообщение от ZX Spectrum-128

А что именно вызывает затруднения? Оформление подпрограммы?

Затруднения в том как определить общее количество элементов массивов. Не знаю как записать.

[ZX Spectrum-128]

Например, так
Вызов функции

  write('Количество элементов = ',f(b1,b2,b3,7,10,7);

function f(c1,c2,c3:mas;n1,n2,n3:integer):integer;
var
  i,count:integer;
begin
  count:=0;
  for i:=1 to n1 do
    if (c1[i]>=1) and (c1[i])<=4) then 
      inc(count);
  for i:=1 to n2 do
    if (c2[i]>=1) and (c2[i])<=4) then 
      inc(count);
  for i:=1 to n3 do
    if (c3[i]>=1) and (c3[i])<=4) then 
      inc(count);
   f:=count;  
end;

Позволил себе подправить ваш код

program eror;
type mas=array[1..10] of integer;
var
  B1,B2,B3:mas;
  i,s:integer;
begin
  writeln('Массив первый :');
  for i:=1 to 7 do
    begin
      B1[i]:=random(40)-13;
      write(B1[i]:4);
   end;
  writeln;
  writeln('Массив второй :');
  for i:=1 to 10 do
    begin
       B2[i]:=random(60)-50;
       write(B2[i]:4);
    end;
  writeln;
  writeln('Массив третий :');
  for i:=1 to 7 do
    begin
      B3[i]:=random(40)-13;
      write(B3[i]:4);
    end;
  writeln;
end.