Сформировать массив Y из элементов массива Х так, чтобы каждый отрицательный элемент массива Х дублировался

@Focus48 · Регистрация: 16.02.2011

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

@MegaAce · 13.03.2011, 13:21

Pascal

uses crt;
const n=10;
var x:array[1..n] of integer;
    y:array[1..(2*n)] of integer;
    i,j:integer;
begin
 clrscr;
 randomize;
 j:=0;
 for i:=1 to n do
 begin
  inc(j);
  x[i]:=random(100)-50;
  write(x[i]:4);
 
  y[j]:=x[i];
  if x[i]<0 then
  begin
   inc(j);
   y[j]:=x[i];
  end;
 end;
 
 writeln;
 for i:=1 to j do
  write(y[i]:4);
end.

@Focus48 1 / 1 / 0 Регистрация: 16.02.2011 Сообщений: 25
		1
	Сформировать массив Y из элементов массива Х так, чтобы каждый отрицательный элемент массива Х дублировался 13.03.2011, 12:35. Показов 1490. Ответов 1 Метки нет (Все метки) Сформировать массив Y из элементов массива Х так, чтобы каждый отрицательный элемент массива Х дублировался 0

	13.03.2011, 13:21

Сформировать массив Y из элементов массива Х так, чтобы каждый отрицательный элемент массива Х дублировался

Решение