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

Пусть вводится последовательность из целых чисел, оканчивающаяся нулем

14.11.2013, 19:50. Просмотров 1326. Ответов 2
Метки нет (Все метки)

Найти два наименьших числа последовательности.

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

Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти:
Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти: а)...

Дана непустая последовательность положительных целых чисел av а2, ..., оканчивающаяся нулем.
30. Дана непустая последовательность положительных целых чисел av а2, ...,...

Пусть вводится последовательность из целых чисел
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найти 2...

Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом
Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся...

Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел последовательности, большее числа х
Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем....

2
ПерС
431 / 356 / 322
Регистрация: 05.11.2013
Сообщений: 1,008
Записей в блоге: 6
Завершенные тесты: 1
14.11.2013, 19:59 2
Лучший ответ Сообщение было отмечено RecOne как решение

Решение

хм, а слова "последовательность" должны навести на мысль, что массив не используем?
если без массива то можно так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,min1,min2:integer;
begin
 min1:=32767;
 min2:=32767;
 repeat
  write ('введите число или 0 для выхода:');
  readln (n);
  if n=0 then break;
  if n<min2 then begin min1:=min2; min2:=n; end
  else if n<min1 then min1:=n;
 until false;
 if min2<32767 then writeln ('min1=',min2)
 else writeln ('min1 не найден');
 if min1<32767 then writeln ('min1=',min1)
 else writeln ('min2 не найден');
 write ('ЕНТЕР');
 readln;
end.
введите число или 0 для выхода:1
введите число или 0 для выхода:0
min1=1
min2 не найден
ЕНТЕР


введите число или 0 для выхода:4
введите число или 0 для выхода:9
введите число или 0 для выхода:2
введите число или 0 для выхода:-1
введите число или 0 для выхода:3
введите число или 0 для выхода:1
введите число или 0 для выхода:0
min1=-1
min1=1
ЕНТЕР
1
RecOne
0 / 0 / 0
Регистрация: 18.09.2013
Сообщений: 6
14.11.2013, 20:12  [ТС] 3
Спасибо, выручил!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2013, 20:12

Вводится последовательность из N целых чисел
1. Вводится последовательность из N целых чисел. Определить сумму всех...

Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел
Вводится последовательность из N целых чисел.Найти сумму положительных n...

с клавиатуры вводится последовательность из целых чисел, 0-конец последовательности
с клавиатуры вводится последовательность из целых чисел, 0-конец...


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

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

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