Массивы. Присвоить 8-му элементу значение 10-го элемента, увеличенное на 5, а 10-му элементу присвоить значение 13 - Turbo Pascal
Формулировка задачи:
Решение задачи: «Массивы. Присвоить 8-му элементу значение 10-го элемента, увеличенное на 5, а 10-му элементу присвоить значение 13»
var a: array [1..15] of integer; i: integer; begin randomize; writeln('Massive #1'); for i:= 1 to 15 do begin a[i]:=random(6)+7; write(a[i],' '); end; writeln; a[8]:=a[10]+5; a[10]:=13; writeln('Massive #2'); for i:= 1 to 15 do write(a[i],' '); readln; end.
Объяснение кода листинга программы
В данном коде используется массив целых чисел, который простирается от 1 до 15. В первой части кода происходит генерация случайных чисел для каждого элемента массива. Для этого используется функция randomize, которая инициализирует генератор случайных чисел, и затем цикл for, который проходит по каждому элементу массива и присваивает ему случайное число от 6 до 13 (включительно), увеличивая его на 7. Затем выводится значение каждого элемента массива. Во второй части кода происходит изменение значений двух элементов массива. Для этого используется оператор присваивания, который меняет значение элемента a[8] на значение элемента a[10], увеличенное на 5, и затем значение элемента a[10] на число 13. После этого выводится содержимое всего массива. Код завершается вызовом функции readln, чтобы прочитать ввод пользователя.