В массиве из 12 целых положительных чисел от 0 до 20 поменять местами первый и последний элементы, второй и предпоследний, и т.д.. Вывести исходный и
5-9 класс
|
полученный массивы, ABC Paskal
Program Program1;
Var
a:array [1..12] of integer;
i,temp:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(21);
writeln('a[',i,']=',a[i]);
end;
for i:=1 to 6 do
begin
temp:=a[i];
a[i]:=a[13-i];
a[13-i]:=temp;
end;
writeln;
writeln('Полученный массив:');
for i:=1 to 12 do
writeln('a[',i,']=',a[i]);
end.
Другие вопросы из категории
частотой обновления экрана 75 Гц.
видеопамяти, если использовать 256-цветную палитру?
Читайте также
полученный массивы, 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 из положительных и поменять местами.