Составить програму на PascalABC дан массив из 50 элементов которые заполняются в случайными числами в диапазоне от -50 до 49 требуется из одного массива скопировать в другой массив значения в диапазоне от -5 до 5 включительно и посчитать их количество

Предыдущий
вопрос Следующий
вопрос

program CopyArray;

var
arr1, arr2: array[1..50] of integer;
i, count: integer;

begin
Randomize;

// заполняем массив arr1 случайными числами от -50 до 49
for i := 1 to 50 do
arr1[i] := Random(100) - 50;

// копируем значения из arr1 в arr2 в диапазоне от -5 до 5
count := 0;
for i := 1 to 50 do
begin
if (arr1[i] >= -5) and (arr1[i] <= 5) then
begin
count := count + 1;
arr2[count] := arr1[i];
end;
end;

// выводим количество и значения второго массива
writeln('Number of elements in the range from -5 to 5: ', count);
writeln('Elements in the range from -5 to 5:');
for i := 1 to count do
write(arr2[i], ' ');

end.