Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
АртемГ
1 / 1 / 0
Регистрация: 04.10.2013
Сообщений: 36
#1

В целочисленном массиве подсчитать количество четных положительных элементов - Turbo Pascal

28.10.2013, 15:13. Просмотров 389. Ответов 3
Метки нет (Все метки)

в целочисленном массиве подсчитать количество четных положительных, четных отрицательных, нечетных положительных и нечетных отрицательных. помогите пожалуйста
http://www.cyberforum.ru/turbo-pascal/thread1135610.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 15:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В целочисленном массиве подсчитать количество четных положительных элементов (Turbo Pascal):

В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов
Помогите. Вот задача - Разделение по знаку. В массиве С(n) подсчитать...

В целочисленном массиве произвести сортировку только четных элементов
Дан цель численный массив. Требуется расположить четные элементы в порядке...

В целочисленном массиве A(N) определить сумму положительных элементов и произведение отрицательных
В целочисленном массиве A(N) определить сумму положительных элементов и...

В двумерном массиве подсчитать количество четных чисел
4. В данном двумерном целочисленном массиве подсчитать количество четных чисел.

Сколько в массиве четных положительных элементов?
Ввести массив из 10 элементов. Сколько в массиве четных положительных...

3
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
28.10.2013, 15:25 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

по тупому
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const n=10;
var a:array [1..n] of integer;
i,kchpol,kchotr,knechotr,knechpol:integer;
begin
clrscr;
randomize;
writeln('Massive:');
for i:=1 to n do
begin
        a[i]:=random(100)-49;
        write(a[i],' ');
end;
writeln;
kchpol:=0;
kchotr:=0;
knechpol:=0;
knechotr:=0;
for i:=1 to n do
begin
if (a[i]>0) and (a[i] mod 2 = 0) then kchpol:=kchpol+1;
if (a[i]<0) and (a[i] mod 2 = 0) then kchotr:=kchotr+1;
if (a[i]>0) and (a[i] mod 2 <>0) then knechpol:=knechpol+1;
if (a[i]<0) and (a[i] mod 2 <>0) then knechotr:=knechotr+1;
end;
writeln('Chetnih polozhitelnih : ',kchpol);
writeln('Chetnih otricatelnih : ',kchotr);
writeln('Nechetnih polozh : ',knechpol);
writeln('Nechetnih otricatelnih : ',knechotr);
readkey;
end.
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
28.10.2013, 16:01 #3
Pascal
1
knechpol:=knechpol+1;
упрощаем до
Pascal
1
Inc(knechpol)
Для определения четности/нечетности есть встроенная функция ODD !!!
Проверяет параметр на нечетность.
Объявление:
Function Odd(X : Longint) : Boolean;

Режим:
Windows, Real, Protected

Замечания:
Значение функции Odd(X) равно True, если X - нечетное число.
0
АртемГ
1 / 1 / 0
Регистрация: 04.10.2013
Сообщений: 36
28.10.2013, 16:15  [ТС] #4
а можете прислать блок-схему?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 16:15
Привет! Вот еще темы с решениями:

Поиск в водимом целочисленном одномерном массиве четных чисел и вывод полученного результата в виде массива четных чисел
Напишите программу, выполняющую следующий алгоритм: ввод целочисленного...

Подсчитать количество четных элементов
Дана матрица А(6,6). Подсчитать количество четных элементов, лежащих на...

Подсчитать количество четных элементов
Дан массив N(25) цел.типа. Подсчитать кол-во четных

Массив: В одномерном массиве А15 подсчитать количество нечётных элементов и количество элементов кратных 5
В одномерном массиве А15 подсчитать количество нечётных элементов и количество...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru