Изменить значения всех положительных элементов заданного массива делением каждого из них на его номер - PascalABC.NET
Формулировка задачи:
Помогите пожалуйста.
Изменить значения всех положительных элементов заданного массива х1, х2,...,хn делением каждого из них на его номер в массиве и подсчитать число отрицательных элементов данного массива.
Решение задачи: «Изменить значения всех положительных элементов заданного массива делением каждого из них на его номер»
textual
Листинг программы
begin
var Count := 0;
var N := ReadLnInteger('N =');
var A : array of Real;
SetLength(A, N);
for var i := 0 to N-1 do
begin
A[i] := ReadLnReal('A[' + (i+1).toString + '] =');
if A[i] > 0 then
A[i] := A[i] / (i+1)
else if A[i] < 0 then
Count += 1;
end;
WriteLn('Массив A = ', A);
WriteLn('Отрицательных: ', Count);
end.
Объяснение кода листинга программы
- Вводится количество элементов в массиве (N).
- Создается массив A типа Real, размерностью N.
- Заполняется массив A значениями элементов, которые считываются с помощью функции ReadLnReal.
- Для каждого элемента массива проверяется его знак.
- Если элемент положительный, то он делится на (i+1).
- Если элемент отрицательный, то увеличивается счетчик Count.
- Выводится массив A.
- Выводится значение счетчика Count, которое показывает количество отрицательных элементов в массиве.