С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Anutka
0 / 0 / 0
Регистрация: 10.05.2014
Сообщений: 17
1

Найти в последовательности самое большее и меньшее число, а также количество нулей

10.05.2014, 22:41. Просмотров 1046. Ответов 1
Метки нет (Все метки)

Сложить программу для нахождения среди последовательности из пяти целых чисел, что вводятся с клавиатуры, самое большое число, меньшее и количество "нулевых" значений!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2014, 22:41
Ответы с готовыми решениями:

Найти: а) первое число в последовательности большее n б) сумму всех чисел в последовательности
Последовательность Фибоначчи образуется так: первый и второй члены...

В последовательности найти первое число, меньшее заданного
Дано число 0<a<1. В последовательности а, а2, а3,…найти первое число, меньшее...

Определить количество инверсий (большее число находится слева от меньшего) в последовательности
Дана последовательность из n целых чисел. Определить количество инверсий в этой...

Найти в последовательности чисел первое число, большее заданного А
Найти в последовательности чисел 1, 1+ 1\2, 1+1\2 +1\3 ,… первое число, большее...

Найти в последовательности чисел 1, 1+, 1++,… первое число, большее заданного А
Найти в последовательности чисел 1, 1+1/2, 1+1/2+1/3,… первое число, большее...

1
Kodzaev
3008 / 1897 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
10.05.2014, 22:44 2
Лучший ответ Сообщение было отмечено Anutka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  i, n, max, min, zero: integer;
 
begin
  max := -MAXINT - 1;
  min := MAXINT;
  zero := 0;
  for i := 1 to 5 do
  begin
    ReadLn(n);
    if n > max then
      max := n;
    if n < min then
      min := n;
    if n = 0 then
      Inc(zero)
  end;
  WriteLn('Самое большое число = ', max);
  WriteLn('Самое меньшее число = ', min);
  WriteLn('Количество нулей = ', zero);
  ReadLn
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2014, 22:44

Найти количество членов последовательности с номерами 1,2,4,8,16,. имеют значение, меньшее, чем 0.25
Помогите пожалуйста решить данный пример, заранее благодарю за Вашу помощь. ...

Найти среди последовательности чисел первое число, большее заданного А
Найти среди последовательности чисел 0,3; 0,3*1,3; 0,3*1,3*2,3;… первое число,...

Заменить из двух данных чисел меньшее число суммой, а большее произведением
составьте программу заменяющую из двух данных чисел меньшее число суммой а...


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

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

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