Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
IgorAvas
0 / 0 / 0
Регистрация: 12.10.2016
Сообщений: 86
1

Выяснить каких элементов в массиве больше, четных или нечетных

17.10.2016, 11:47. Просмотров 882. Ответов 1
Метки нет (Все метки)

2) дан целочисленный массив из 10 формируемый рандомно , выяснить каких элементов в массиве больше четных или не четных
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2016, 11:47
Ответы с готовыми решениями:

Определить каких элементов больше четных или нечетных
Дан двумерный массив. Определить каких элементов в массиве больше четных или нечетных.

Определить произведение каких чисел больше:четных или нечетных.
Написать программу: Дан массив из 15 целых чисел из интервала от -4 до 15. Определить произведение...

Определить каких цифр больше, четных или нечетных, в трехзначном числе
1.С клавиатуры вводится трехзначное число, определить каких цифр больше четных или нечетных(...

Определить каких цифр больше, четных или нечетных, в трехзначном числе (через while)
1.С клавиатуры вводится трехзначное число, определить каких цифр больше четных или нечетных(...

Ответьте каких элементов положительних или отрицательных есть больше в массиве А (N, М)
Ответьте каких элементов положительних или отрицательных есть больше в массиве А (N, М) ПОМОГИТЕ...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
Завершенные тесты: 2
17.10.2016, 11:59 2
Лучший ответ Сообщение было отмечено IgorAvas как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
    N = 10;
var
    ar: Array[1..N] Of ShortInt;
    i, oddCount, evenCount: 0..N;
begin
    oddCount := 0; evenCount := 0;
    Randomize;
    Write('Original array:');
    for i := 1 to N do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        if (Odd(ar[i]))
        then
            Inc(oddCount)
        else
            Inc(evenCount);
    end;
    WriteLn;
    WriteLn(' Odd count: ', oddCount);
    WriteLn('Even count: ', evenCount);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2016, 11:59

Каких цифр четных или нечетных больше в целом числе
Каких цифр четных или нечетных больше в целом числе (использовать процедуру)

Написать программу, которая определяет, каких цифр в целом числе больше, четных или нечетных
Дано некоторое целое число. Написать программу, которая определяет, каких цифр в нем больше четных...

Выяснить, каких элементов больше в таблице: больших 0 или равных 0
Дан целочисленный линейный массив, состоящий из 20 элементов. Выяснить, каких элементов больше в...


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

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

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