Сформировать одномерный целочисленный массив размерностью N?

Aqaev2015 10 мая 2020 г., 23:32:18

/ / Pascal ABC.

NET v3.

1 сборка 1219

Const

n = 10 ;

Var

ar : array[1.

N] of integer ;

k, i, c : integer ;

begin

randomize ;

writeln('First array : ') ;

for i : = 1 to n do begin ar[i] : = random(9) ; write(ar[i] : 4) ; end ;

writeln ;

c : = ar[1] ;

ar[1] : = ar[n] ;

ar[n] : = c ;

c : = ar[2] ;

ar[2] : = ar[n - 1] ;

ar[n - 1] : = c ;

writeln('Final array : ') ;

for i : = 1 to n do write(ar[i] : 4) ;

end.

Пример работы программы :

First array : 4 5 0 0 4 4 8 5 7 7

Final array : 7 7 0 0 4 4 8 5 5 4.

Hatashaprudhik 4 авг. 2020 г., 01:37:25 | 10 - 11 классы

Дан целочисленный одномерный массив из n - элементов?

Дан целочисленный одномерный массив из n - элементов.

Вывести на экран четные элементы стоящие на нечетных массивов через паскаль.

Ulia026 12 мар. 2020 г., 22:54:59 | 10 - 11 классы

Помогите пожалуйста?

Помогите пожалуйста.

Срочно нужно.

Дан одномерный массив, состоящий из 10 элементов.

Вывести на экран в строчку.

Поменять местами значения от 6 - 10 элементов массива элементов массива и снова вывести на экран!

Тимур149 18 июл. 2020 г., 17:26:36 | 10 - 11 классы

Дан одномерный массив А размерности N?

Дан одномерный массив А размерности N.

Поменять местами максимальный и минимальный элементы.

Oksana1767 12 дек. 2020 г., 02:04:42 | 5 - 9 классы

ABC Paskal В массиве из 12 целых положительных чисел от 0 до 20 поменять местами первый и последний элементы, второй и предпоследний, и т?

ABC Paskal В массиве из 12 целых положительных чисел от 0 до 20 поменять местами первый и последний элементы, второй и предпоследний, и т.

Д. Вывести исходный и полученный массивы,.

Vojnalex1 19 окт. 2020 г., 08:33:56 | 10 - 11 классы

Поменять местами значения второго и третьего элементов в одномерном массиве?

Поменять местами значения второго и третьего элементов в одномерном массиве.

Вывести на экран исходный массив, заданный пользователем любым способом, и преобразованный массив.

Akchalova1998 23 мая 2020 г., 10:27:12 | 10 - 11 классы

Сформировать одномерный массив из 10 случайных элементов в диапазонеот 0 до 100?

Сформировать одномерный массив из 10 случайных элементов в диапазоне

от 0 до 100.

Найти количество элементов массива, больших среднего арифметического

всех его элементов.

Если это количество чѐтное, то увеличить каждый элемент массива на

величину индекса ; иначе поменять местами центральные элементы.

Вывести исходный и

итоговый массивы на экран.

Losemyselft1 22 окт. 2020 г., 23:13:40 | 10 - 11 классы

Сформировать одномерный массив из 20 элементов (значения элементов задаются пользователем)?

Сформировать одномерный массив из 20 элементов (значения элементов задаются пользователем).

Увеличить каждый элемент на 1.

Вывести на экран исходный и итоговый массивы.

Nastay8901 20 сент. 2020 г., 12:09:29 | 10 - 11 классы

Сформировать одномерный целочисленный массив A размерностью N?

Сформировать одномерный целочисленный массив A размерностью N.

Запросить у пользователя индекс k и поменять местами элемент A[k - 1] и A[k + 1].

Вывести на экран исходный и итоговый массивы.

Если k = 1 или N – вывести сообщение об ошибке.

Маша999910 26 мар. 2020 г., 23:07:43 | 5 - 9 классы

Дан одномерный массив из n элементов, найти max, поменять его местами с первым элементом, результат вывести на экран( Программа в Паскале)?

Дан одномерный массив из n элементов, найти max, поменять его местами с первым элементом, результат вывести на экран( Программа в Паскале).

Anatolijokshin 14 дек. 2020 г., 08:51:45 | 5 - 9 классы

Поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC )?

Поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC ).