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

@Berkut206 · Регистрация: 19.09.2010

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

Народ, просто код подскажите пожалуйста....

@Lord_Voodoo · 16.12.2010, 23:34

аналогичный вопрос? узнать четность числа сложно или найти максимальный элемент?

@Berkut206 · 17.12.2010, 18:37 **[ТС]**

Проблема с заменой четных элементов нулями, а остальных максимальным элементом

@Romantik_FM · 17.12.2010, 20:00

Berkut206, cначала находим максимальный элемент
потом проверяем если чётный то заменяем на 0 иначе на максимальный

@Berkut206 · 17.12.2010, 20:30 **[ТС]**

Я так и делаю, но программа мне просто выдает исходный массив ничего не заменяя

Добавлено через 2 минуты
Вот код процедуры, возможно я что то не так делаю

Delphi

for i:=1 to n do begin
if D[i]>max then max:=i;end;
Edit1.Text:=IntToStr(D[max]);
Edit2.Text:=IntToStr(max);
for i:=1 to n do begin
if D[i] MOD 2=0 then
D[i]:=0 else
D[i]:=max;
end;

@Romantik_FM · 17.12.2010, 22:04

попробуй так

Delphi

n:=10
max:=d[0];
for i:=1 to n-1 do 
 begin
  if D[i]>max then max:=d[i];
 end;
for i:=0 to n-1 do begin
 if D[i] MOD 2=0 then
     D[i]:=0 else
     D[i]:=max;
end;

массив [0..9];

@Berkut206 · 17.12.2010, 22:59 **[ТС]**

Разницы собственно никакой... работает точно так же

Добавлено через 5 минут
В Выводе может быть ошибка?

Delphi

for i:=1 to n do begin
D[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
StringGrid2.Cells[i-1,0]:=IntToStr(D[i]);
end;

Добавлено через 38 минут
Ошибку нашел. Вину осознал. Обещаю исправится.

@Romantik_FM · 17.12.2010, 23:24

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

Я так и делаю, но программа мне просто выдает исходный массив ничего не заменяя

Добавлено через 2 минуты
Вот код процедуры, возможно я что то не так делаю
for i:=1 to n do begin
if D[i]>max then max:=i;// вот здесь ты макс присвеил индекс переменной а не число
end;
Edit1.Text:=IntToStr(D[max]);
Edit2.Text:=IntToStr(max);
for i:=1 to n do begin
if D[i] MOD 2=0 then
D[i]:=0 else
D[i]:=max;
end;

разница есть

@olli · 04.04.2012, 11:13

https://www.cyberforum.ru/pascal/thread538192.html а вот с этим помогите, пожалуйста...

@Berkut206 0 / 0 / 0 Регистрация: 19.09.2010 Сообщений: 8
		1
	В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом 14.12.2010, 16:15. Показов 1864. Ответов 8 Метки нет (Все метки) В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом. Народ, просто код подскажите пожалуйста.... __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Lord_Voodoo Супер-модератор 8781 / 2532 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	16.12.2010, 23:34	2
	аналогичный вопрос? узнать четность числа сложно или найти максимальный элемент? 1

@Berkut206 0 / 0 / 0 Регистрация: 19.09.2010 Сообщений: 8
	17.12.2010, 18:37 [ТС]	3
	Проблема с заменой четных элементов нулями, а остальных максимальным элементом 0

@Romantik_FM 324 / 316 / 84 Регистрация: 03.03.2010 Сообщений: 1,364
	17.12.2010, 20:00	4
	Berkut206, cначала находим максимальный элемент потом проверяем если чётный то заменяем на 0 иначе на максимальный 1

@Romantik_FM 324 / 316 / 84 Регистрация: 03.03.2010 Сообщений: 1,364
	17.12.2010, 23:24	8
	Сообщение от Berkut206 Я так и делаю, но программа мне просто выдает исходный массив ничего не заменяя Добавлено через 2 минуты Вот код процедуры, возможно я что то не так делаю for i:=1 to n do begin if D[i]>max then max:=i;// вот здесь ты макс присвеил индекс переменной а не число end; Edit1.Text:=IntToStr(D[max]); Edit2.Text:=IntToStr(max); for i:=1 to n do begin if D[i] MOD 2=0 then D[i]:=0 else D[i]:=max; end; разница есть 0

@olli 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 8
	04.04.2012, 11:13	9
	https://www.cyberforum.ru/pascal/thread538192.html а вот с этим помогите, пожалуйста... 0

Опции темы