Дан вектор D(n). Сдвинуть на три позиции влево, заменив последние три единицами

@kurdovivan · Регистрация: 10.12.2012

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

паскаль

@ermolay · 26.06.2013, 08:13

Pascal

var
  a: array[1..100] of integer;
  i,n: integer;
begin
  repeat
    write('Ââåäèòå ðàçìåð ìàññèâà n (n>3): ');
    readln(n);
  until n>3;
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i]:4);
  end;
  writeln;
  for i:=4 to n do a[i-3]:=a[i];
  for i:=n-2 to n do a[i]:=1;
  writeln('Äâèíóòûé ìàññèâ:');
  for i:=1 to n do write(a[i]:4);
end.

@kurdovivan 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 11
		1
	Дан вектор D(n). Сдвинуть на три позиции влево, заменив последние три единицами 26.06.2013, 00:19. Показов 1622. Ответов 1 Метки нет (Все метки) паскаль 0

	26.06.2013, 08:13

Дан вектор D(n). Сдвинуть на три позиции влево, заменив последние три единицами

Решение