Untitled
unknown
plain_text
a year ago
791 B
7
Indexable
program ReverseArray; var array1, reversedArray: array[1..10] of integer; i: integer; begin // Задаем массив из 10 случайных чисел в интервале [-10, 10] Randomize; for i := 1 to 10 do array1[i] := Random(21) - 10; // Реверсируем все элементы, кроме последнего for i := 1 to 9 do reversedArray[i] := array1[10 - i]; // Выводим исходный и реверсированный массивы writeln('Исходный массив:'); for i := 1 to 10 do write(array1[i], ' '); writeln; writeln('Реверсированный массив (кроме последнего элемента):'); for i := 1 to 9 do write(reversedArray[i], ' '); end.
Editor is loading...
Leave a Comment