[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Seqular, Pavel

Форум » Обсуждение задач » Новые задачи » Массив(одномерный) (Срочно нужна помощь!)

Массив(одномерный)

Эльзо4ка Дата: Пятница, 13.01.2012, 05:23 | Сообщение # 1 Новичок Группа: Пользователи Сообщений: 4 Репутация: 0 Замечания: 0% Статус: Offline Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все нечетные элементы с четными индексами на нули.вывидите на экран исходный и полученный массивы

Seqular Дата: Пятница, 13.01.2012, 06:38 | Сообщение # 2 Хранитель Группа: Администраторы Сообщений: 859 Репутация: 35 Статус: Offline Эльзо4ка, Code For i := 1 to N do begin A[i] := Random(20); Write(A[i]:2,', '); if ((not Odd(i)) and (Odd(A[i])) then   A[i] := 0; end; Делаем в одном проходе. Можно разнести на 2 цикла. Поддерживаю также проект сообщество молодых сисадминов

Эльзо4ка Дата: Пятница, 13.01.2012, 22:51 | Сообщение # 3 Новичок Группа: Пользователи Сообщений: 4 Репутация: 0 Замечания: 0% Статус: Offline Огромное спасибо