|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.10.2017, 15:49 | #1 |
Пользователь
Регистрация: 29.09.2017
Сообщений: 33
|
[Pascal] Подсчитать количество ненулевых чисел
Задание: Подсчитать количество ненулевых чисел, стоящих на нечетных местах, и вычислить среднее арифметическое чисел, меньших заданного T
Код:
Что смог- написал, но что-то не считает то, что нужно. Если не сложно, подскажите. Не так давно начал изучать данный язык. _____ Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) Модератор Последний раз редактировалось Serge_Bliznykov; 16.10.2017 в 16:34. |
16.10.2017, 16:41 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
А зачем используете переменную a вместо T ?
но это не суть. ошибки. 1) не задаёте значение a (а лучше ввести переменную T для этой цели) 2) меньше заданного значения - это просто if (z[i]<T) then not не нужен 3) сумму чисел надо считать так s:=s+z[i]; 4) среднее арифметическое считается в вашем случае по формуле s/y при этом надо учесть вариант, что y=0 (т.е. чисел меньше T нет совсем), для этого нужно написать Код:
должно быть, Код:
|
16.10.2017, 18:08 | #3 |
Пользователь
Регистрация: 29.09.2017
Сообщений: 33
|
Спасибо за разъяснение!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подсчитать сумму ненулевых чисел в массиве. Ассемблер | Серебаня | Помощь студентам | 0 | 19.06.2017 18:23 |
Подсчитать сумму отрицательных четных чисел, количество четных чисел кратных 3 и т.д. (pascal abc .net) | kardinalmax | Общие вопросы .NET | 1 | 24.01.2014 09:28 |
Задана последовательность чисел в формате:сначала количество цифр в числе, потом - цифры числа. Подсчитать количество. | Arn1 | Помощь студентам | 4 | 03.10.2011 20:03 |
Подсчитать количество пар чисел | KER123 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 08.04.2011 08:21 |