Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 8
1

Дан массив из n целых чисел.Определить количество положительных чисел, используя функцию определения положительности числа.

30.05.2010, 20:10. Показов 1729. Ответов 1
Метки нет (Все метки)

Плиз срочна нуна !!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2010, 20:10
Ответы с готовыми решениями:

Дан массив целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких
Дан массив целых положительных чисел. Найти произведение только тех чисел, которые больше заданного...

Дан массив из n целых чисел.Определить количество соседств двух чисел одного знака. +2 задачи.
Возможно кто-то сможет помочь на Pascalе. 1)Дан массив из n целых чисел.Определить количество...

Дан массив целых чисел. Написать две функции ( количество положительных и отрицательных элементов)
Дан массив целых чисел. Написать две функции, которые возвращают количество положительных и...

Дан массив из 20 чисел. Для каждого числа необходимо определить количество чисел в массиве кратных ему
Помогите пожалуйста, подскажите идею или программу! Дан массив из 20 чисел. Для каждого числа...

1
912 / 877 / 62
Регистрация: 06.01.2010
Сообщений: 2,367
Записей в блоге: 6
30.05.2010, 20:42 2
Лучший ответ Сообщение было отмечено COSS как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
const
  n=???; <---поставь нужную константу
var
  mas: array[0..n-1] of Integer;
  i, Count: Integer;
 
  function IsPositive(const a: Integer): Boolean;
  begin
    IsPositive:=a>0;
  end;
begin
... <---заполни массив
  Count:=0;
  for i:=Low(mas) to High(mas) do
    Inc(Count, Ord(IsPositive(mas[i])));
  writeln('Обнаружено положительных элементов: ', Count);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2010, 20:42

Дан массив целых положительных чисел А1,А2,...Аn.Найти произведение элементов,больших заданного числа М
Дан массив целых положительных чисел А1,А2,...Аn.Найти произведение элементов,больших заданного...

Дан массив из 10 целых чисел. Записать цифры числа в обратном порядке, используя рекурсию
Например: Массив: 123 34 12 11 87 19 86 64 283 12398 Должен превратиться в: 321 43 21 11 78 91 68...

Дан массив, содержащий 70 положительных целых чисел. Необходимо найти сумму чисел
Дан массив, содержащий 70 положительных целых чисел. Необходимо найти сумму чисел не меньших 49 и...

Дан массив из 10 целых чисел определить количество элементов кратных 5
Помогите пожалуйста составить программу! За ранее спасибо!!!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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