Сформировать вектор Х, где х1 совпадает с первой ненулевой компонентой вектора Y(y1,y2,...,ym) при просмотре его компонентой слева направо

@Natacha · Регистрация: 22.12.2011

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

составить программу для формирования вектора Х(х1,х2,...,хn), где х1 совпадает с первой ненулевой компонентой вектора Y(y1,y2,...,ym) при просмотре его компонентой слева направо,х2-со следующей ненулевой компонентой и т.д.

@WebMax 2.0 · 31.12.2011, 11:37

Сообщение от Natacha

составить программу для формирования вектора Х(х1,х2,...,хn), где х1 совпадает с первой ненулевой компонентой вектора Y(y1,y2,...,ym) при просмотре его компонентой слева направо,х2-со следующей ненулевой компонентой и т.д.

Pascal

 Uses crt;
  
 var x,y : array [1..100] of integer;
 i,j,n,m : integer;
  
 begin
 randomize;
 Write('Введите размер вектора Y - '); readln(m);
 Writeln('Вектор Y: ');
 For i:=1 to m do
     begin
     Y[i]:=random(9);
     Write(Y[i],' ');
     If Y[i]<>0 then
        begin
        inc(n);
        X[n]:=Y[i];
        end;
     end;
 Writeln;
 Writeln('Сформированный вектор X: ');
 For i:=1 to n do
     write(X[i],' ');
 end.

@Natacha · 31.12.2011, 18:10 **[ТС]**

спасибо большое)))

@Natacha 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 44
		1
	Сформировать вектор Х, где х1 совпадает с первой ненулевой компонентой вектора Y(y1,y2,...,ym) при просмотре его компонентой слева направо 30.12.2011, 00:09. Показов 1408. Ответов 2 Метки нет (Все метки) составить программу для формирования вектора Х(х1,х2,...,хn), где х1 совпадает с первой ненулевой компонентой вектора Y(y1,y2,...,ym) при просмотре его компонентой слева направо,х2-со следующей ненулевой компонентой и т.д. 0

@Natacha 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 44
	31.12.2011, 18:10 [ТС]	3
	спасибо большое))) 0

Сформировать вектор Х, где х1 совпадает с первой ненулевой компонентой вектора Y(y1,y2,...,ym) при просмотре его компонентой слева направо

Решение