0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 8
1

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

14.12.2010, 16:15. Показов 1864. Ответов 8
Метки нет (Все метки)

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

Народ, просто код подскажите пожалуйста....
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2010, 16:15
Ответы с готовыми решениями:

В произвольно заданном одномерном массиве все нулевые элементы заменить максимальным элементом
народ уже всё перепробовал знаю банально,но помогите

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

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

В двумерном числовом массиве все отрицательное элементы заменить нулями
в двумерном числовом массиве все отрицательное элементы заменить нулями!

8
Супер-модератор
8781 / 2532 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
16.12.2010, 23:34 2
аналогичный вопрос? узнать четность числа сложно или найти максимальный элемент?
1
0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 8
17.12.2010, 18:37  [ТС] 3
Проблема с заменой четных элементов нулями, а остальных максимальным элементом
0
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
17.12.2010, 20:00 4
Berkut206, cначала находим максимальный элемент
потом проверяем если чётный то заменяем на 0 иначе на максимальный
1
0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 8
17.12.2010, 20:30  [ТС] 5
Я так и делаю, но программа мне просто выдает исходный массив ничего не заменяя

Добавлено через 2 минуты
Вот код процедуры, возможно я что то не так делаю
Delphi
1
2
3
4
5
6
7
8
9
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
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
17.12.2010, 22:04 6
попробуй так
Delphi
1
2
3
4
5
6
7
8
9
10
11
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];
1
0 / 0 / 0
Регистрация: 19.09.2010
Сообщений: 8
17.12.2010, 22:59  [ТС] 7
Разницы собственно никакой... работает точно так же

Добавлено через 5 минут
В Выводе может быть ошибка?
Delphi
1
2
3
4
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 минут
Ошибку нашел. Вину осознал. Обещаю исправится.
0
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
0 / 0 / 0
Регистрация: 03.04.2012
Сообщений: 8
04.04.2012, 11:13 9
https://www.cyberforum.ru/pascal/thread538192.html а вот с этим помогите, пожалуйста...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2012, 11:13
Помогаю со студенческими работами здесь

В одномерном массиве (в массиве n элементов) удалить все элементы стоящие между минимальным положительным и максимальным отрицательным элементом
Добрый вечер!) Помогите с задачкой: В одномерном массиве (в массиве n элементов) удалить все...

Заменить в массиве все чётные элементы нулями
Заменить в массиве все чётные элементы нулями

Заменить в массиве все четные элементы нулями
Всем привет! Как вы по названию уже поняли мне нужно заменить все четные числа в массиве на нули и...

Заменить в массиве все чётные элементы нулями
Как заменить массиве из 10 целых чисел все чётные элементы нулями? Как бы сделать так, чтобы нули...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru