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

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

22.01.2014, 15:31. Просмотров 1015. Ответов 1
Метки нет (Все метки)

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

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

Дана не пустая последовательность, целых чисел, за которой следует ноль
Очень извиняюсь, только осваиваю паскаль. Разъясните в чем проблема: Дана не пустая...

Дана непустая последовательность не нулевых целых чисел, за которой следует 0:
Определить три наибольших числа среди них

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

Дана не пустая последовательность различных натуральных чисел, за которой следует 0.
Помогите с решением задачи. Дана не пустая последовательность различных натуральных чисел, за...

1
Puporev
Модератор
56620 / 43300 / 29935
Регистрация: 18.05.2008
Сообщений: 103,019
22.01.2014, 15:41 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a,mn,k:integer;
begin
writeln('Введите непустую последовательность ненулевых целых чисел, конец ввода 0');
k:=0;
mn:=maxint;
repeat
read(a);
if a<>0 then //0 не входит в последовательность
 begin
  if a<mn then
   begin
    mn:=a;
    k:=1;
   end
  else if a=mn then inc(k);
 end
until a=0;
write('Количество минимальных=',k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2014, 15:41

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

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

Из ввода дана непустая последовательность из “n” вещественных чисел (n задается из ввода), за которой следует 0. Определить количество чисел
13. Из ввода дана непустая последовательность из “n” вещественных чисел (n задается из ввода), за...


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

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

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