IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Найти количество нечетных чисел
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский

Репутация: -  0  +


Дан массив 25 случайных чисел от -40 до 40. Вывести а) количество нечетных б) количество положительных

Если честно, на то, чтобы напечатать массив, найти сумму, ср.арифметическое и т.п. , у мя мозгов еще кое-как хватает. А вот с количеством... Мы задач не решали похожих, и примера нет( Можете помочь найти кол-во?


 
Program mas100;
var
a: array [1..25] of real;
i: integer;
Ch:char;
Begin
Randomize;
i:=1;
While i<=25 do
begin
A[i]:=random(81);
A[i]:=A[i]-40;
write (A[i]:3:0, ' ');
i:=i+1;
end;
For i:=1 to 25 do
write (a[i]:3:0, ' ')
....

.

Еще проблема: мне должно выводиться 25 шт. чисел, а выводится намного больше. почему? я вроде все правильно сделала.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
inomarka   Найти количество нечетных чисел   11.02.2007 22:23
volvo   Во-первых, не обязательно делать 2 строки там, где…   11.02.2007 22:33
TarasBer   [code=pas]if A[i] mod 2 = 0 then { значит, четное…   11.02.2007 23:21
inomarka   Только я все равно не знаю, как вычислить это само…   11.02.2007 23:56
Altair   Потому что odd есть в Паскале, а вот насчет осталь…   11.02.2007 23:30
мисс_граффити   хотя бы потому, что компилятор (TP) такое не проп…   11.02.2007 23:47
мисс_граффити   inc(x) или x:=x+1 :) как больше нравится во вт…   12.02.2007 0:03
inomarka   во втором случае ты забыла обнулить х и напутала …   12.02.2007 21:46
volvo   Почему не [code=pas]if not Odd(A) = 0 then ?Потому…   12.02.2007 22:07
TarasBer   Я думал, что это макрос... Даже если это и функци…   12.02.2007 22:56
volvo   вообще НЕ работает... По крайней мере не должен...…   12.02.2007 23:41
Zzzz...   У меня вот так получилось uses crt; var a:arra…   13.02.2007 0:09
inomarka   Спасибо всем огромное, :good: а особенно volvo, …   13.02.2007 0:43
мисс_граффити   И с отрицательными числами неправильно работает..…   13.02.2007 2:11
volvo   Юля, var i: integer; begin i := -15; writeln(…   13.02.2007 3:26
мисс_граффити   -1. а что должен? 1? ведь остаток - это разница с …   13.02.2007 3:48
TarasBer   -1. а что должен? 1? ведь остаток - это разница с…   13.02.2007 3:59
мисс_граффити   не знаю. действительно, разница с меньшим всегда …   13.02.2007 4:12
TarasBer   не знаю. действительно, разница с меньшим всегда …   13.02.2007 4:16


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 11.08.2022 0:42
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name