Массивы. Присвоить 8-му элементу значение 10-го элемента, увеличенное на 5, а 10-му элементу присвоить значение 13 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте) Пожалуйста, помогите решить задачки!) 2)Одномерный массив из 15 элементов заполнить случайным образом числами от 7 до 12. Присвоить 8-му элементу значение 10-го элемента, увеличенное на 5, а 10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Решение задачи: «Массивы. Присвоить 8-му элементу значение 10-го элемента, увеличенное на 5, а 10-му элементу присвоить значение 13»

textual
Листинг программы
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, чтобы прочитать ввод пользователя.

Оцени полезность:

15   голосов , оценка 3.667 из 5
Похожие ответы