сервис вопросов и ответовПаскаль. Массив заполнен случайными числами от a до b. Необходимо сдвинуть все элементы массива на 3 позиции вправо. Вывести массив.
10-11 класс|
|
PolyaO2000
10 авг. 2014 г., 17:54:43 (9 лет назад)
FuNkFM
10 авг. 2014 г., 19:51:41 (9 лет назад)
uses crt;
procedure swap(a, b: integer);
var t: integer;
begin
t := a;
a := b;
b := t;
end;
procedure right(mas: array[1..100] of integer);
var i: integer;
begin
for i:=100 downto 2 do
swap(mas[i],mas[i-1]);
end;
var mas : array[1..100] of integer;
a, b, i : integer;
begin
readln(a, b);
randomize();
for i:=1 to 100 do
mas[i]:=a + random(b-a);
right(mas);
right(mas);
right(mas);
for i:=1 to 100 do
writeln(mas[i]:5);
end.
Nikitosik11
10 авг. 2014 г., 21:00:51 (9 лет назад)
var a, b, i :integer;
s :array [1..10000] of integer;
begin
readln (a, b);
for i:=1 to b-a+1 do
s[i]:=random(b-a+1)+a;
for i:=b-a-1 to b-a+1 do write (s[i], ' ');
for i:=1 to b-a-2 do write (s[i], ' ')
end.
Ответить
Другие вопросы из категории
Выполнить последовательный перевод данных (шестнадцатеричных) чисел
в двоичную и десятичную системы счисления :
АС873,Е2
Составить программу одномерного массива.
подсчитать количество чисел,не принадлежащих промежутку (х,у]
Автоматическое устроиство осуществило перекодировку информационного сообщения на русском языке ,первоначально записанного в 16-битном коде Unicode,в
8-битную кодировку КОИ-8.Насколько байт уменьшился при этом информационный объем сообщения?
Читайте также
помогите срочнооо) pascal abc 1. Развернуть обе половинки массива в обратном порядке. Считая, что массив имеет четное число элементов.
Пояснения
Из массива (1, 2, 3, 4, 5, 6, 7, 8) нужно получить массив (4, 3, 2, 1, 8, 7, 6, 5).
2. Сдвинуть все элементы массива на одну позицию влево (циклически). Первый элемент должен оказаться на месте последнего.
3. Сдвинуть все элементы массива на одну позицию вправо (циклически). Последний элемент должен оказаться на месте первого.
1.Одномерный массив заполнен случайным образом. Найти количество четных элементов. 2. Одномерный массив размерностью N , где N -нечетное число,
заполнен случайными числами от -15 до 6. Все , числа кратные 3 заменить на противоположные.
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
дано 2 одномерных массива размером 20 ячеек первый массив заполнить случайными числами от 10 до 50 второй заполнить случайными числами от 30 до 90
первый массив отсортировать по возврастанию второй по убыванию посчитать среднее арифметическое повторяющихся чисел.
язык паскаль
можно написать алгоритм
паскаль,1) вывести все четные числа от 1 до 15
2)вывести на экран числа от 2 до 9 с шагом 0,2
Вы находитесь на странице вопроса "Паскаль. Массив заполнен случайными числами от a до b. Необходимо сдвинуть все элементы массива на 3 позиции вправо. Вывести массив.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.