Заданы массивыА(5),В(4),С(7).определить, в каком массиве больше чисел,попадающих в интервал от -1 до 1.подсчёт количества чисел по

[Richik123]

Заданы массивыА(5),В(4),С(7).определить, в каком массиве больше чисел,попадающих в интервал от -1 до 1.подсчёт количества чисел попадающих в интервал от -1 до 1 оформить в виде подпрограммы.Заполнение Массивов и вывод на печать оформить в виде подпрограмм

[Leshii]

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

for i:=1 to 5 do begin
     if a[i] in [-1..1] then inc(count1);
end;

или

for i:=1 to 5 do begin
     if (a[i] > -1) and (a[i] < 1) then inc(count1);
end;

Вроде так, дерзай.

[Richik123]

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

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

for i:=1 to 5 do begin
     if a[i] in [-1..1] then inc(count1);
end;

или

for i:=1 to 5 do begin
     if (a[i] > -1) and (a[i] < 1) then inc(count1);
end;

Вроде так, дерзай.

окей, спасибо