4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
1

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

27.12.2011, 21:24. Показов 3866. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
вводится последовательность из N целых чисел. Признак окончания ввода число 0.Найти два
наименьших числа
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2011, 21:24
Ответы с готовыми решениями:

Вводится последовательность целых чисел. Найти два наименьших элемента
program may4; var x,min1,min2:integer; begin write('Введите x='); readln(x); min1:=x;...

Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа
Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа.Прошу помощи.

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

Вводится последовательность чисел, 0 – конец последовательности. Найти два наибольших числа
Вводится последовательность чисел, 0 – конец последовательности. Найти два наибольших числа

2
7 / 7 / 9
Регистрация: 26.12.2011
Сообщений: 12
28.12.2011, 18:35 2
Лучший ответ Сообщение было отмечено Richik123 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  a: array[1..100] of integer;
  i: integer;
  k: integer;
  n: integer;
  min, nmin, buf: integer;
 
begin
  repeat 
    readln(n);
    inc(k);
    a[k] := n;
  until n = 0;
  writeln('Сформированная последовательность: ');
  for i := 1 to k do write(a[i], ' ');
  writeln;
  min := a[1];
  for i := 1 to k - 1 do 
    if a[i] < min then begin
      min := a[i];
      nmin := i;
    end;
  writeln('Первое минимальное число: ', min);
  for i := nmin to k - 1 do
    a[i] := a[i + 1];
  min := a[1];
  for i := 1 to k - 2 do 
    if a[i] < min then min := a[i];
  writeln('Второе минимальное число: ', min);
end.
1
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
28.12.2011, 19:22 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
var
  a,min1,min2:integer;
  isMin1Set,isMin2Set:boolean;
begin
  isMin1Set:=false;//u nas net 1 minimuma
  isMin2Set:=false;//u nas net 2 minimuma
  repeat
    readln(a);//vvod chisla
    if a<>0 then//esli chislo ne ravno nulyu, to ishem minimumy
      if not isMin1Set then//esli perviy minimum ne ustanovlen
        begin
          min1:=a;//ustanavlivaem perviy minimum
          isMin1Set:=true;//zapominaem, chto odin minimum u nas est
        end
      else 
        if not isMin2Set then//esli vtoroi minimum ne ustanovlen
          begin
            if a<=min1 then//esli vvedennoe chislo menshe ili ravno 1 minimumu
              begin
                min2:=min1;//vo 2 minimum zapisyvaem znachenie tekushego 1 minimuma
                min1:=a;//perezapisyvaem znachenie 1 minimuma
              end
            else
              min2:=a;//vvedennoe chislo bolshe 1 minimuma, prosto ustanavliem 2 minimum
            isMin2Set:=true;//zapominaem, chto 2 minimum u nas est
          end
        else//dva minimuma polucheny, prosto sravnivaem vvod chisel s nimi
          if a<=min1 then
            begin
              min2:=min1;
              min1:=a;
            end
        else
          if a<min2 then
            min2:=a;
  until a=0;//pri vvode nulya vyhod
  if not isMin1Set then
    writeln('Ne bylo vvedeno chisel. Minimumov net.')
  else if not isMin2Set then
    writeln('Vvedeno vsego odno chislo, ochevidno, eto odin edinstvenniy minimum ',min1)
  else
    write('2 minimalnyh chisla posledovatelnosti:',min1,' ',min2);
end.
1
28.12.2011, 19:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2011, 19:22
Помогаю со студенческими работами здесь

Вводится последовательность из М чисел, найти два наибольших числа и их порядковые номера
Задание в Visual Basic. Составить блок-схемы и программы задачи (использовать цикл с параметром,...

Вводится последовательность целых чисел,0 –конец последовательности. Определить, содержит ли последовательность хотя бы три отрицательных четных числа
Составить алгоритм решения задачи и написать программу на языке С++. В алгоритме и ...

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

Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10
6) Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru