Вопрос по информатике:
Паскаль. Массив заполнен случайными числами от a до b. Необходимо сдвинуть все элементы массива на 3 позиции вправо. Вывести массив.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.10.2017 14:57
- Информатика
- remove_red_eye 8297
- thumb_up 16
Ответы и объяснения 2
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.
- 20.10.2017 00:37
- thumb_up 16
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.
- 21.10.2017 07:49
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.