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

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

11.09.2012, 23:07. Просмотров 921. Ответов 1
Метки нет (Все метки)

Даны натуральное число n и целые числа b1,b2......bn. Верно ли,что количество положительных чисел превышает количество отрицательных чисел более чем в 2 раза
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.09.2012, 23:07
Ответы с готовыми решениями:

Выяснить, верно ли, что количество положительных чисел не превышает 5
даны целые числа a1,a2...,an. Выяснить, верно ли, что количество положительных...

Верно ли, что количество положительных чисел последовательности не превышает 5
даны целые числа a1,a2...,an. Выяснить, верно ли, что количество положительных...

Выяснить, верно ли, что количество отрицательных чисел последовательности превышает х
Даны натуральное число n и целые а1,а2,...,аn.Выяснить, верно ли, что...

Выяснить, верно ли, что количество положительных чисел массива не превышает 5
Дано 10 целых чисел. Выяснить, верно ли, что количество положительных чисел не...

Выяснить, верно ли, что количество отрицательных чисел a_i превышает заданное
2)Даны натурарльное число n и целые числа a_1,a_2 …,a_n. Выяснить, верно ли,...

1
SnurMax
7 / 7 / 5
Регистрация: 10.09.2012
Сообщений: 17
11.09.2012, 23:57 2
Лучший ответ Сообщение было отмечено Pier как решение

Решение

Цитата Сообщение от Pier Посмотреть сообщение
Даны натуральное число n и целые числа b1,b2......bn. Верно ли,что количество положительных чисел превышает количество отрицательных чисел более чем в 2 раза
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a: array[1..100] of integer;
    i: integer;
    n: integer;
    quantMinus, quantPlus, rezault: integer;
begin
  readln(n);
  for i:=1 to n do readln(a[i]);
  for i:=1 to n do write(a[i],' ');
  writeln;
  for i:=1 to n do
    if a[i]>0 then inc(quantPlus) else inc(quantMinus);
  quantMinus:=quantMinus*2;
  if quantPlus=quantMinus then writeln('Равны!');
  if quantPlus>quantMinus then writeln('Превышает!') else writeln('Не превышает!');
end.
Если всё правильно понял.
Кстати, проверить можно и так ещё:
Pascal
1
2
rezault:=quantPlus div quantMinus;
if rezault>2 then writeln('Превышает!') else writeln('Не превышает!');
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.09.2012, 23:57

Дан массив вещественных чисел. Выяснить верно ли, что количество положительных элементов не превышает 5
38.Решить задачу в Turbo Pascal.Дан массив вещественных чисел. Выяснить верно...

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

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


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

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

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