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

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

08.03.2013, 22:51. Просмотров 961. Ответов 1
Метки нет (Все метки)

дан массив Х (V). найти в массиве количество отрицательных и положительных элементов.если больше отрицательных,то поменять порядок массива
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2013, 22:51
Ответы с готовыми решениями:

Определить количество положительных, отрицательных, нулевых элементов в массиве. Блок-схема
Program pr5; uses wincrt; var a: array of integer; i,kp,ko,kn:...

Подсчитать в рандомно заполненном массиве количество положительных, отрицательных и нулевых элементов
Подсчитать в рандомно заполненном массиве количество положительных,...

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

В массиве найти сумму его отрицательных элементов и произведение положительных
Для массива а1, а2, а3, ... а10 получить сумму его отрицательных элементов и...

Найти количество положительных и количество отрицательных элементов
Дан массив Q=, i=1,10; j=1,10 ] (элементы выбираются случайным образом):...

1
ntrx
122 / 122 / 82
Регистрация: 03.01.2013
Сообщений: 241
09.03.2013, 02:56 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
32
33
34
35
36
program fdsfds;
uses crt;
const n = 10;
var a, tmp : array[1..n] of integer;
    positivs, negativs : word;
    i : byte;
begin
     randomize();
     for i:=1 to n do begin
         a[i] := random(100)-50;
         write(a[i]:3,' ');
     end;
     
     for i:=1 to n do begin
         if (a[i]<0) then
            negativs := negativs + 1
         else
             positivs := positivs + 1;
     end;
 
     writeln;
     if (positivs > negativs) then begin
        writeln('Positive: ',positivs,', Negativs: ',negativs);
        end
        else begin
             writeln('Positive: ',positivs,', Negativs: ',negativs);
             for i:=1 to n do
                 tmp[i] := a[i];
             for i:=1 to n do
                 a[i] := tmp[n-i+1];
             writeln('Pos. < Neg. Therefore..');
             for i:=1 to n do
                 write(a[i]:3,' ');
        end;
        readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.03.2013, 02:56

Найти количество положительных k1 и k2 – отрицательных элементов матрицы
Ввести матрицу. Найти количество положительных k1 и k2 – отрицательных...

Найти сумму положительных и количество отрицательных элементов массива
Найти сумму положительных элементов массива.Найти количество отрицательных...

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


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

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

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