Отдельно положительные и отрицательные элементы массива.

@KRISTINKA_the_BEST · Регистрация: 03.06.2009

Вывести на печать отдельно положительные элементы массива X(16) и отдельно отрицательные элементы.

@Jazon_deenAlt · 17.05.2010, 17:49

Pascal

for i:=1 to 16 do begin
if x[i]>0 then write(x[i],' ');
end;
writeln;
for i:=1 to 16 do begin
if x[i]<0 then write(x[i],' ');
end;

@KRISTINKA_the_BEST 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 43
		1
	Отдельно положительные и отрицательные элементы массива. 17.05.2010, 17:47. Показов 1996. Ответов 1 Метки нет (Все метки) Вывести на печать отдельно положительные элементы массива X(16) и отдельно отрицательные элементы. 0

Опции темы

Решение