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

@59rus · Регистрация: 27.02.2013

Составить программу для удаления из массива первого отрицательного элемента. Массив заполнить случайным образом в диапозоне [-15;30], размерность массива 15 элементов.

@nezhensky · 07.05.2013, 09:56

Что значит удалить? Заменить его на 0 или двигать оставшиеся?

@59rus · 07.05.2013, 10:02 **[ТС]**

Заменить на 0

@nezhensky · 07.05.2013, 10:23

Pascal

var
i: integer;
a: array [1..15] of integer;
begin
for i:=1 to 15 do a[i]:=random(45)-15;
i:=1;
repeat
if a[i]<0 then a[i]:=0;
until a[i]>0
end.

@59rus 0 / 0 / 0 Регистрация: 27.02.2013 Сообщений: 8
		1
	Составить программу для удаления из массива первого отрицательного элемента 07.05.2013, 09:34. Просмотров 1113. Ответов 3 Метки нет (Все метки) Составить программу для удаления из массива первого отрицательного элемента. Массив заполнить случайным образом в диапозоне [-15;30], размерность массива 15 элементов. 0

@nezhensky 124 / 114 / 15 Регистрация: 26.04.2012 Сообщений: 330 Записей в блоге: 3
	07.05.2013, 09:56	2
	Что значит удалить? Заменить его на 0 или двигать оставшиеся? 0

@59rus 0 / 0 / 0 Регистрация: 27.02.2013 Сообщений: 8
	07.05.2013, 10:02 [ТС]	3
	Заменить на 0 0

Опции темы