В массиве из 12 целых положительных чисел от 0 до 20 поменять местами первый и последний элементы, второй и предпоследний, и т.д.. Вывести исходный и
5-9 класс
|
полученный массивы, ABC Paskal
Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
Другие вопросы из категории
Срочно надо программу надо на Паскале
дано натуральное число n. вычислить s=1*2+2*3*4+...+n*(n+1)*...*2n
Заранее очень благодарна
Читайте также
полученный массивы, ABC Paskal
полученный массивы. Помогитеее, пожалуйста, очень надо!! Люди , кто понимает информатику, решитееееееееееее, прошу, умоляююююююю
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
2. Опишите массив для хранения зарплаты за каждый месяц. Зарплату считать целым числом.
3.Опишите: a)Переменную В для массива, состоящую из 8 символов. b)Переменную MAS для массива, состоящего из 100 вещественных чисел. c)Переменную DAY для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5
.4. Пусть А : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям: a. Третий элемент массива сделать равным 5. b. Вывести на экран 7-й элемент массива. c. Ввести значение 1-го элемента массива. d. Вычислить сумму 1,2 и 3-го элементов массива.
5. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вычислить сумму всех элементов массива (используйте цикл).
6. Пусть C : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вывести на экран все элементы массива.
7. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Поменять местами первый и последний элементы массива.
8. Пусть В : array [1..20] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Заполнить массив случайными числами из интервала [-24;37].
положительных и отрицательных элементов. Найти max и min из положительных и поменять местами.