Дан массив из 20 элементов , заполненный случайным образом. Вывести его на экран , после этого изменить массив , чтобы значение последнего элемента стало значением первого ( обратный порядок ) пример: 1 2 3 4 5 и стало 5 4 3 2 1 (Паскаль)
program ReverseArray va arr: array[1..20] of Integer i, temp: Integer begi Randomize // заполнение массива случайными значениям for i := 1 to 20 d begi arr[i] := Random(100); // случайное число от 0 до 9 end // вывод массива на экра writeln('Исходный массив:') for i := 1 to 20 d begi write(arr[i], ' ') end writeln // обмен значений первого и последнего элементо temp := arr[1] arr[1] := arr[20] arr[20] := temp // вывод измененного массива на экра writeln('Массив после изменения:') for i := 1 to 20 d begi write(arr[i], ' ') end writeln end.
Этот код создает массив из 20 случайных чисел, выводит его на экран, затем меняет местами первый и последний элемент массива и выводит измененный массив на экран.
Пример кода на Pascal:
program ReverseArrayva
arr: array[1..20] of Integer
i, temp: Integer
begi
Randomize
// заполнение массива случайными значениям
for i := 1 to 20 d
begi
arr[i] := Random(100); // случайное число от 0 до 9
end
// вывод массива на экра
writeln('Исходный массив:')
for i := 1 to 20 d
begi
write(arr[i], ' ')
end
writeln
// обмен значений первого и последнего элементо
temp := arr[1]
arr[1] := arr[20]
arr[20] := temp
// вывод измененного массива на экра
writeln('Массив после изменения:')
for i := 1 to 20 d
begi
write(arr[i], ' ')
end
writeln
end.
Этот код создает массив из 20 случайных чисел, выводит его на экран, затем меняет местами первый и последний элемент массива и выводит измененный массив на экран.