В массив B скопировать элементы массива А с противоположным знаком - Pascal
Формулировка задачи:
Из массива А(10) состоящего из 40 вещественных знаков получить массив В, в который войдут все противоположные по знаку элементы массива А. Массив описать в разделе типов, Элементы массива А задать в разделе констант . На экран вывести массив В.
const A: array [1..40] of real = (1, 2 ,3 ,4 ,5 ,6 ,7 ,8, 9 ,10)
Решение задачи: «В массив B скопировать элементы массива А с противоположным знаком»
textual
Листинг программы
const N = 10; A: array [1..N] of real = (1, 2, 3, 4, -5, 6, -7, 8, 9, 10); var B: array[1..N] of real; i: integer; begin for i := 1 to N do begin write(A[i], ' '); B[i] := -A[i]; end; writeln; for i := 1 to N do write(B[i], ' '); end.
Объяснение кода листинга программы
- Объявлены константа N равная 10 и массив A типа real с элементами от 1 до 10 и с отрицательным знаком на элементе 5.
- Объявлен массив B типа real с элементами от 1 до 10.
- Объявлена переменная i типа integer.
- Запускается цикл for от 1 до N.
- Внутри цикла выводится значение элемента массива A на экран.
- Значение элемента массива A с противоположным знаком записывается в элемент массива B.
- После завершения цикла выводится символ новой строки.
- Запускается цикл for от 1 до N.
- Внутри цикла выводится значение элемента массива B на экран.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д