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

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

27.10.2016, 10:44. Показов 942. Ответов 1
Метки нет (Все метки)

Дано натуральное число n и два целочисельных массива a1,a2,...,an и b1,b2,...,bn. Найти в каком из массивов больше положительных чисел а в каком отрицательных,вызвать для этого специальную процедуру.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2016, 10:44
Ответы с готовыми решениями:

В каком из файлов больше положительных, отрицательных и нулевых значений.
Пусть даны два файла целых чисел. Определите, в каком из них больше положительных, отрицательных и...

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

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

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

__________________
1
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
27.10.2016, 12:57 2
Лучший ответ Сообщение было отмечено bilser как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
const
    ANSWER: Array[Boolean] Of Char = ('B', 'A');
type
    TVector = Array[Byte] Of ShortInt;
procedure PosNegCount(const x: TVector; const len: Byte; var neg, pos: Byte);
var
    i: Byte;
begin
    pos := 0; neg := 0;
    for i := 0 to len - 1 do
        if (x[i] > 0)
        then
            Inc(pos)
        else
            if (x[i] < 0)
            then
                Inc(neg);
end;
var
    a, b: TVector;
    i, aNeg, bNeg, aPos, bPos: Byte;
    n: Integer;
begin
    repeat
        Write('Введите длину векторов (1..256): ');
        ReadLn(n);
    until ((n > 0) And (n < 257));
    Randomize; Write('A:');
    for i := 0 to n - 1 do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
    end;
    WriteLn;
    Write('B:');
    for i := 0 to n - 1 do
    begin
        b[i] := Random(199) - 99;
        Write(b[i]:4);
    end;
    WriteLn;
    PosNegCount(a, n, aNeg, aPos);
    PosNegCount(b, n, bNeg, bPos);
    Write('Положительных: ');
    if (aPos = bPos)
    then
        Write('одинаковое количество')
    else
        Write('больше в векторе ', ANSWER[aPos > bPos]);
    WriteLn; Write('Отрицательных: ');
    if (aNeg = bNeg)
    then
        Write('одинаковое количество')
    else
        Write('больше в векторе ', ANSWER[aNeg > bNeg]);
    WriteLn;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2016, 12:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1.
Всем здравствуйте, очень нужна Ваша помощь, помогите пожалуйста решить 4 задачки. 1. Составить ...

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

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


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

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

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