Заменить все отрицательные элементы массива на -1, а положительные на +1 - Turbo Pascal
Формулировка задачи:
Преобразовать массив, заменив все отрицательные числа на -1, а положительные на +1.
помогите
Решение задачи: «Заменить все отрицательные элементы массива на -1, а положительные на +1»
textual
Листинг программы
program pr;
const
Csize=100;
var
i, n: integer;
a: array [1..Csize] of integer;
begin
writeln('Введите размер массива');
readln(n);
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i]:3);
end;
for i := 1 to n do
if a[i] < 0 then
a[i] := -1;
for i := 1 to n do
if a[i] > 0 then
a[i] := 1;
writeln;
writeln('Преобразованный массив');
for i := 1 to n do
write(a[i]:3);
end.
Объяснение кода листинга программы
- Программа начинается с объявления константы Csize, которая определяет максимальное количество элементов в массиве.
- Затем объявляются переменные i и n, которые будут использоваться для итерации по массиву и его размеру.
- Создается массив a, который будет содержать числа от 0 до 20.
- Выводится сообщение
Введите размер массива, чтобы пользователь мог ввести размер массива. - Считывается введенный размер массива.
- Запускается цикл for, который итерируется от 1 до n. На каждой итерации значение переменной i увеличивается на 1.
- Внутри цикла вычисляется случайное число от 10 до 20 и присваивается переменной a[i].
- Выводится значение a[i] с помощью функции write.
- Если значение a[i] меньше 0, то оно заменяется на -1.
- Если значение a[i] больше 0, то оно заменяется на 1.
- После завершения внутреннего цикла for, запускается еще один цикл for, который итерируется от 1 до n.
- Внутри этого цикла проверяется условие if a[i] > 0. Если оно истинно, то значение a[i] заменяется на 1.
- Если условие if a[i] < 0 истинно, то значение a[i] заменяется на -1.
- После завершения внешнего цикла for выводится сообщение
Преобразованный массив. - Запускается еще один цикл for, который итерируется от 1 до n.
- Внутри этого цикла выводится значение a[i] с помощью функции write.
- Программа завершается.