Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
WaltZZ1
0 / 0 / 0
Регистрация: 12.05.2018
Сообщений: 6
1

Получить число отрицательных членов и число членов, принадлежащих отрезку [1, 2]

28.05.2018, 17:17. Просмотров 765. Ответов 1
Метки нет (Все метки)

Доброго времени суток,помогите решить задание

Общая постановка. Дана последовательность чисел a1, a2, a3, … . Количество элементов в последовательности заранее неизвестно. Написать программу с запросом продолжения ввода (массив не использовать).

Получить число отрицательных членов и число членов, принадлежащих отрезку [1, 2].
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2018, 17:17
Ответы с готовыми решениями:

Получить число отрицательных членов и число членов, принадлижащих отрезку {1,2}
Даны натуральное число n, действительные числа a1,..,an. В последовательности a1,..,an, все не...

Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности
Program ms1; uses crt; const n=45; var a:array of integer; i,ko,kn:integer; begin clrscr;...

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an
даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных...

Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число отрицательных членов последовательности a1,...,an.
Помогите пожалуйста решить задачу... Даны натуральное число n, целые числа a1,...,an....

Получить число отрицательных членов последовательности
Помогите, пожалуйста решить задачу в Паскале.. Даны целые числа a1, a2, … ,a45. Получить число...

1
Cyborg Drone
Модератор
5901 / 3495 / 2565
Регистрация: 17.08.2012
Сообщений: 11,207
29.05.2018, 00:40 2
Лучший ответ Сообщение было отмечено WaltZZ1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  a: real;
  n, k: integer;
  s: string;
 
begin
  //n := 0; k := 0;
  writeln('Введите последовательность действительных чисел.');
  repeat
    write('Очередной член последовательности = ');
    readln(a);
    if a < 0
      then inc(n)
      else if (a >= 1) and (a <= 2)
        then inc(k);
    write('Продолжить ввод чисел (y/n)? ');
    readln(s)
  until (length(s) > 0) and (s[1] = 'n');
  writeln('Количество отрицательных чисел: ', n);
  writeln('Количество чисел в интервале [1..2]: ', k);
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2018, 00:40

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...

Одномерный массив число отрицательных членов
Даны натуральное число n, целые числа a1, ... an. Получить cумму положительных и число...

Найти число членов последовательности b1..b40, больших ср. арифметического всех членов последоват. а1..a50
Даны две целочисленные последовательности а1… а50 и b1…b40. Определить число членов...


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

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

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