Сдвинуть на три позиции влево, заменив последние три единицами

@Re1337 · Регистрация: 18.06.2013

Author24 — интернет-сервис помощи студентам

Сдвинуть на три позиции влево, заменив последние три единицами.

@Puporev · 23.06.2013, 13:56

Что сдвинуть?

Добавлено через 8 минут
Если массив, то так.

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j:integer;
begin
randomize;
repeat
write('Размер массива от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)+2;
  write(a[i]:4);
 end;
writeln;
for i:=1 to 3 do
 begin
  for j:=1 to n-1 do
  a[j]:=a[j+1];
  a[n]:=1
 end;
for i:=1 to n do
write(a[i]:4);
end.

@Re1337 0 / 0 / 0 Регистрация: 18.06.2013 Сообщений: 13
		1
	Сдвинуть на три позиции влево, заменив последние три единицами 23.06.2013, 12:38. Показов 1218. Ответов 1 Метки нет (Все метки) Сдвинуть на три позиции влево, заменив последние три единицами. 0

	23.06.2013, 13:56

Сдвинуть на три позиции влево, заменив последние три единицами

Решение