Массивы, программа |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Массивы, программа |
LehaGrishin |
28.12.2014 21:51
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0 |
В одномерном массиве X i (i = 1…5) найти количество элементов с нечетными индексами, оформить в виде процедуры. В основной программе организовать ввод и вывод массива, и вывод количества.
Помогите, пожалуйста |
Федосеев Павел |
28.12.2014 22:25
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Покажи, что уже готово. На чём остановился.
Я часто встречаюсь с тем, что люди поначалу теряются, но всё же выполняют работу самостоятельно, а мне остаётся лишь немного подсказывать. |
LehaGrishin |
28.12.2014 22:41
Сообщение
#3
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0 |
Цитата uses crt; var a:array[1..5] of integer; i:integer; k:integer; begin clrscr; k := (Length(a) DIV 2) + (Length(a) MOD 2); writeln(k); end end. |
Федосеев Павел |
28.12.2014 23:18
Сообщение
#4
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Да... Слегка запущено. Смотри в FAQ статью 1,и статью 2.
Там образцы ввода/вывода массивов. И образцы подсчёта (или поиска) элементов в массиве по произвольному условию (но это ты уже выполнил - почти - нужно в виде процедуры - и не length, а high(a) и low(a)). function CountOddIndex( const a: TArray): integer; Ну или как у тебя - по формуле. Сообщение отредактировано: Федосеев Павел - 28.12.2014 23:19 |
Гость |
28.12.2014 23:29
Сообщение
#5
|
Гость |
Цитата const N = 5; procedure CountOdddIndex(var Count : integer); var i : integer; begin Count := (N+1) div 2; end; var A :array[1..N] of integer; Cnt : integer; begin CountOdddIndex( cnt ); WriteLn('В массиве ровно ', cnt, ' элемента(-ов) с нечётными индексами.') end. Скажите, а вот так вот правильно? |
Федосеев Павел |
28.12.2014 23:38
Сообщение
#6
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Да, правильно, но недостаточно, т.к. в условии
Цитата В основной программе организовать ввод и вывод массива, и вывод количества. |
Текстовая версия | 13.05.2024 9:13 |