Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 12.05.2013
Сообщений: 43

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

12.05.2013, 16:25. Показов 2289. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет.
Помогите решить задачу на паскале!!
Задача:
заменить на нули все нечетные элементы массива. в массиве 15 элементов
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.05.2013, 16:25
Ответы с готовыми решениями:

Заменить все нечетные элементы последовательности на нули
задан массив из 15 случайных элементов из диапазона -15 до 10 замените все нечетные элементы на нули

Заменить все чётные элементы массива на их квадраты, а нечётные удвоить
Задача на массивы: "Заменить все чётные элементы массива на их квадраты, а нечётные удвоить." заранее спасибо)

Все отрицательные элементы массива заменить единицей, положительные возвести в квадрат, нули оставить
Создать массив случайных чисел на интервале от -15 до 15. Все отрицательные элементы заменить единицей, положительные - возвести в квадрат...

6
 Аватар для palva
4278 / 2970 / 693
Регистрация: 08.06.2007
Сообщений: 9,930
Записей в блоге: 5
12.05.2013, 16:33
Цикл замены:
Pascal
1
2
3
for i:=1 to 15 do
    if odd(i) then
        a[i]:=0;
1
 Аватар для Mike_device
6 / 5 / 6
Регистрация: 11.05.2013
Сообщений: 139
12.05.2013, 16:34
Лучший ответ Сообщение было отмечено Nextrim как решение

Решение

Цитата Сообщение от Nextrim Посмотреть сообщение
Всем привет.
Помогите решить задачу на паскале!!
Задача:
заменить на нули все нечетные элементы массива. в массиве 15 элементов
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const N = 15;
 
var a: array[1..N] of Integer;
    i:byte;
 
begin
    for i:=1 to N do
        read(a[i]);
    readln;
 
    for i:=1 to N do
        if a[i] mod 2 <> 0 then
            a[i]:= 0;
 
    for i:=1 to N do
        write(a[i],' ');
 
    readln;
end.
1
 Аватар для palva
4278 / 2970 / 693
Регистрация: 08.06.2007
Сообщений: 9,930
Записей в блоге: 5
12.05.2013, 16:39
Цитата Сообщение от Nextrim Посмотреть сообщение
заменить на нули все нечетные элементы массива
Нечетные по порядку следования или нечетные по значению? Мы с Mike_device, по-разному поняли вашу задачу.
0
0 / 0 / 0
Регистрация: 12.05.2013
Сообщений: 43
12.05.2013, 16:40  [ТС]
Цитата Сообщение от palva Посмотреть сообщение
Нечетные по порядку следования или нечетные по значению? Мы с Mike_device, по-разному поняли вашу задачу.
По значению
0
 Аватар для palva
4278 / 2970 / 693
Регистрация: 08.06.2007
Сообщений: 9,930
Записей в блоге: 5
12.05.2013, 16:41
Тогда Mike_device рулит.
0
0 / 0 / 0
Регистрация: 12.05.2013
Сообщений: 43
12.05.2013, 16:45  [ТС]
Всем спасибо кто откликнулся.

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.05.2013, 16:45
Помогаю со студенческими работами здесь

Заменить все нечетные элементы массива суммой второго и предпоследнего элементов
Здравствуйте, помогите пожалуйста решить задачку. Ввести с экрана одномерный массив А целого типа. Заменить все нечетные элементы массива...

Заменить, все отрицательные элементы массива на нули
6. Дан произвольный массив целых чисел размерности N*M. Заменить, все отрицательные элементы массива на нули.

Заменить все отрицательные элементы массива на нули
Исходная матрица должна быть выведена на экран в виде таблици.Все преобразования производить с исходным массивом. После каждого...

Заменить все симметричные элементы двумерного массива на нули
Дан двумерный массив размером 5 * 8, заполненный случайным образом. Заменить все симметричные элементы на нули.

Заменить все положительные элементы одномерного массива на нули
Дан одномерный массив F1 ,... F20 Если модуль суммы положительных элементов больше мудуля суммы отрицательных элементов то заменить все...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. На мобильном - сканируйте QR-код. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru