Создать новый массив, элементами которого являются все отрицательные элементы массива C - Turbo Pascal (33989)
Формулировка задачи:
Дан массив С(п). Создать новый массив, элементами которого являются все отрицательные элементы массива C
Решение задачи: «Создать новый массив, элементами которого являются все отрицательные элементы массива C»
textual
Листинг программы
const n = 10; var c, b : array[1..n] of integer; i, j : integer; begin randomize; j := 0; writeln('массив C'); for i := 1 to n do begin c[i] := random(20) - 10; write(c[i]:4); if c[i] < 0 then begin inc(j); b[j] := c[i] end end; writeln; writeln('массив B'); for i := 1 to j do write(b[i]:4); readln end.
Объяснение кода листинга программы
- В начале кода объявляются две переменные: n и c. Переменная n инициализируется значением 10. Переменная c представляет собой массив целых чисел размером n.
- Затем объявляются две переменные: i и j. Переменная i инициализируется значением 1, а переменная j инициализируется значением 0. Эти переменные будут использоваться для итерации по массиву c и массиву b соответственно.
- Выполняется команда randomize, которая инициализирует генератор случайных чисел.
- Затем выполняется цикл for, который повторяется n раз (от 1 до 10). Внутри цикла каждый элемент массива c инициализируется случайным числом от 0 до 19 с помощью функции random(20) — 10. Это число затем записывается в стандартный вывод.
- Если значение элемента массива c меньше 0, то увеличивается значение переменной j, и элемент массива b инициализируется значением элемента массива c. Это происходит до тех пор, пока все элементы массива c не станут положительными.
- После завершения цикла for выполняется команда writeln, которая выводит на экран сообщение
массив B
. Затем выполняется цикл for, который повторяется j раз (от 1 до 10). Каждый элемент массива b выводится на экран. - Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д