Все четные элементы массива заменить нулями, остальные элементы максимальными

@sanek_next · Регистрация: 14.05.2010

В одномерном числовом массиве D все четные элементы заменить нулями ,остальные элементы максимальными.

@Puporev · 13.12.2010, 10:53

Находим максимальный

Pascal

1
2
3

for i:=1 to n do
if a[i] mod 2=0 then a[i]:=0
else a[i]:=max;

@Dekio · 13.12.2010, 10:54

Pascal

max:=1;
for i:=1 to n do
if arr[i] > max then
max:=arr[i];
for i:=1 to n do
if not odd(arr[i]) then
arr[i]:=0
else
arr[i]:=max;

@Grey Warden · 13.12.2010, 11:00

Команда

Pascal

max:=1;

будет неверна, если все элементы отрицательные. Поэтому лучше написать

Pascal

1	max:=arr[1];

Так, думаю, будет вернее.

@sanek_next · 13.12.2010, 11:52 **[ТС]**

Спасибо всем!

@sanek_next Мимолетом здесь... 51 / 51 / 0 Регистрация: 14.05.2010 Сообщений: 209
		1
	Все четные элементы массива заменить нулями, остальные элементы максимальными 13.12.2010, 10:36. Показов 2046. Ответов 4 Метки нет (Все метки) В одномерном числовом массиве D все четные элементы заменить нулями ,остальные элементы максимальными. 1

@sanek_next Мимолетом здесь... 51 / 51 / 0 Регистрация: 14.05.2010 Сообщений: 209
	13.12.2010, 11:52 [ТС]	5
	Спасибо всем! 1

Опции темы

Решение