Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить, что больше: сумма или произведение элементов массива. Найти ошибку https://www.cyberforum.ru/ turbo-pascal/ thread1184671.html
Где ошибка Program t7iz1; uses crt; var a:array of integer; i,j:byte; s1,s2:real; begin clrscr; randomize; for i:=1 to 3 do begin for j:=1 to 5 do begin
Ввести репертуар театров, вывести список всех комедий Turbo Pascal
Ввести репертуар театров, содержащий название театра, дата, спектакль, автор, тип спектакля (детский – для какого возраста; взрослый – пьеса, драма, комедия; музыкальный – композитор). Вывести...
Turbo Pascal Выделить желтым цветом в массиве элементы как на картинке и подсчитать их сумму Нужна ваша помощь в решении задания. На картинке нарисован двухмерный массив a. Нужно посчитать сумму всех ячеек закрашеных в жёлтый цвет. Пока удалось написать код программы который выделяет... https://www.cyberforum.ru/ turbo-pascal/ thread1184534.html Turbo Pascal Определить количество сотрудников с минимальной зарплатой и количество с максимальной. Отсортировать таблицу Народ помогите нужно срочно написать таблицу. Нужно ввести фамилию, инициалы, должность, оклад. Необходимо сформировать таблицу, записав в нее известную информацию о каждом сотруднике. Создать поле... https://www.cyberforum.ru/ turbo-pascal/ thread1184524.html
Задан двумерный массив, состоящий из N строк и M столбцов (N, M<10). Написать программу определения суммы з Turbo Pascal
Задан двумерный массив, состоящий из N строк и M столбцов (N, M<10). Написать программу определения суммы значений элементов, распо¬ложенных по контуру данного массива.
Turbo Pascal В массиве данных найти номер дня, когда средняя температура первый раз стала положительной Известны средние температуры суток в городе N за месяц. В массиве данных найти номер дня, когда средняя температура первый раз стала положительной. https://www.cyberforum.ru/ turbo-pascal/ thread1184520.html
Turbo Pascal Найти, сколько раз встречается в тексте буквосочетание "то" Дана строка текста. Найти:. сколько раз встречается в тексте буквосочетание «то» https://www.cyberforum.ru/ turbo-pascal/ thread1184512.html Даны строки S1, S2 и символ C. После каждого вхождения символа C в строку S1 вставить строку S2 Turbo Pascal
7. Даны строки S1, S2 и символ C. После каждого вхождения символа C в строку S1 вставить строку S2.
Turbo Pascal Составить таблицу слов данного текста, начинающихся с буквы "А" 7. Составить таблицу слов данного текста, начинающихся с буквы "А". https://www.cyberforum.ru/ turbo-pascal/ thread1184510.html Turbo Pascal Составить программу для вычеркивания из слов текста всех букв, стоящих на нечетных местах после буквы "а" https://www.cyberforum.ru/ turbo-pascal/ thread1184509.html
Составить программу для вычеркивания из слов текста всех букв, стоящих на нечетных местах после буквы "а".
Даны две строки: S1 и S2. Удалить из строки S1 все подстроки, совпадающие с S2 Turbo Pascal
8. Даны две строки: S1 и S2. Удалить из строки S1 все подстроки, совпадающие с S2. Если таких подстрок нет, то вывести S1 без изменений.
Turbo Pascal Дана строка текста. Найти: длину самого короткого слова Дана строка текста. Найти: длину самого короткого слова https://www.cyberforum.ru/ turbo-pascal/ thread1184500.html
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
22.05.2014, 15:40 0

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными - Turbo Pascal - Ответ 6210959

22.05.2014, 15:40. Показов 978. Ответов 1
Метки (Все метки)

Ответ

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными

Добавлено через 1 минуту
В моем варианте нет никаких Bigin-ов между do и if в пред-пред-последней строке.

Добавлено через 1 минуту
Мда, ошибка на ошибке... массив у меня "m", а не "а".

Добавлено через 2 минуты
Что бы правильно переписать программу - надо хоть немного понимать Паскаль, а "тупое" ctrl+c и ctrl+v до добра не доведёт!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=20;
var m:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin
m[i]:=random(10);
write(m[i]:3);
end;
writeln;
For i:=1 to N do If odd(i) and odd(m[i]) then Writeln(m[i]);
readln;
end.


Вернуться к обсуждению:
Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2014, 15:40
Готовые ответы и решения:

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными
Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными.

Вывести элементы массива с нечетными номерами, являющиеся нечетными
Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными.

Задан массив x натуральных чисел из 20 элементов. Удалить из него элементы, являющиеся удвоенными нечетными числами
Сделал вот такую программу: #include &lt;iostream&gt; using namespace std; int main() {...

Массив: Вывести в начале элементы массива с чётными номерами, а потом с нечетными...
Дан массив A размер N. вывести в начале его элементы с чётными номерами (в порядке возрастания...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2014, 15:40
Помогаю со студенческими работами здесь

Массив: Вывести его элементы с нечетными номерами в порядке убывания номеров
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

Массив: Вывести вначале элементы массива с нечётными номерами в порядке возрастания номеров...
Дано массив А размеров N. Вывести вначале его элементы с нечётными номерами в порядке возрастания...

Одномерный массив. Вывести его элементы сначала с четными, потом нечетными номерами
Дан целочисленный массив A размера N.переписать в новый массив В того же размера вначале все...

Вывести на экран элементы массива в два столбика: в первый - элементы с нечетными номерами, во второй - элементы с четными номерами.
Заполнить массив различными действительными числами, случайно выбираются из указанного промежутка....

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