0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
1

Определить сколько раз в последовательности встречается минимальное

22.11.2011, 19:39. Показов 2139. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны целые числа S1,S2,.......Sn. Определить сколько раз среди них встречается минимальное
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2011, 19:39
Ответы с готовыми решениями:

Определить, сколько раз среди последовательности целых чисел встречается максимальное и минимальное
Даны целые числа s1,s2...sn. Определить: а) Сколько раз среди них встречается максимальное. б)...

Определить сколько раз в числе встречается 2
Определить сколько раз в числе встречается 2

Определить, сколько раз массив M2 встречается в M1
Дан массив целых чисел M1. Вводим массив M2, размер которого значительно меньше, чем у M1. ...

Определить сколько раз встречается слог в тексте
Определить сколько раз встречается слог в тексте, очень прошу помогите, за раннее спасибо!

8
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
22.11.2011, 20:06 2
Если с массивами, тогда так
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
uses crt;
var s:array [1..100] of integer;
    n,i,k,min: integer;
begin
write ('n=');
readln(n);
writeln ('Dan massiv');
for i:=1 to n do
    begin
    s[i]:=random(10);
    write (s[i]:2);
    end;
min:=s[1];
k:=1;
for i:=2 to n do
    begin
    if s[i]<min then
       begin
       min:=s[i];
       k:=1;
       end
       else if s[i]=min then
            inc(k);
    end;
writeln;
write ('Min element, =',min,', vstrechaetsja ',k,' raz(a)');
readln;
end.
Если без массивов, намекни...
1
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
23.11.2011, 15:40  [ТС] 3
нужно через оператор цикла и условный оператор
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
23.11.2011, 17:42 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var s,i,n,min,kmin: integer;
begin
write('Skolko chisel? ');
readln (n);
write ('Vvedite chislo ');
readln(s);
min:=s;
kmin:=1;
for i:=2 to n do
    begin
    write ('Vvedite chislo ');
    readln(s);
    if s<min then
       begin
       min:=s;
       kmin:=1;
       end
       else if s=min then inc(kmin);
    end;
write('Min = ',min,', kol-vo = ',kmin);
end.
Если надо через while, намекни...
0
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
23.11.2011, 20:26  [ТС] 5
спасибо большое

Добавлено через 2 часа 35 минут
если не сложно то и через while пожалуйста

Добавлено через 13 секунд
если не сложно то и через while пожалуйста
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
23.11.2011, 22:25 6
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
uses crt;
var s,i,n,min,kmin: integer;
begin
write('Skolko chisel? ');
readln (n);
write ('Vvedite chislo ');
readln(s);
min:=s;
kmin:=1;
i:=2;
while i<=n do
    begin
    write ('Vvedite chislo ');
    readln(s);
    if s<min then
       begin
       min:=s;
       kmin:=1;
       end
       else if s=min then inc(kmin);
    inc(i);
    end;
write('Min = ',min,', kol-vo = ',kmin);
end.
если надо через repeat ... untill, намекни...
1
13 / 13 / 13
Регистрация: 20.06.2011
Сообщений: 82
04.12.2011, 19:47 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s:array [1 .. 999] of integer;
n,f,i,min:integer;
begin
clrscr;
write ('vvedite kol-vo chisel n= ');
readln(n);
for i:=1 to n do begin write('vvedite ',i,' chislo = ');readln(s[i]);end;
min:=s[1];
for i :=1 to n do begin if s[i]<min then min:=s[i];end;
write('minimalnii element - ',min,' vstrechaetsya ' );
for i:=1 to n do if s[i]=min then f:=f+1 ;
writeln(F,'raz');
repeat until keypressed;
end.
1
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
04.12.2011, 20:13  [ТС] 8
нужно без массива
0
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
04.12.2011, 20:54 9
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
var
  i,n,x,min,k:integer;
  f:boolean;
begin
  writeln('Kolichetsvo chisel:');
  readln(n);
  f:=false;
  k:=0;
  for i:=1 to n do
    begin
      write('Vvedite chislo:');
      readln(x);
      if not f then
        begin
          f:=true;
          min:=x;
          k:=1;
        end
      else  if min>x then
          begin
            min:=x;
            k:=1;
          end
      else  if min=x then
          inc(k);
    end;
  writeln('Minimalnyh v posledovatelnosti:',k);
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2011, 20:54
Помогаю со студенческими работами здесь

Определить, сколько раз в тексте встречается буква 'о'
С клавиатуры вводится текст из маленьких русских букв. Текст заканчивается точкой. Определить,...

Определить, сколько раз встречается слово в предложении
задача: Текст. A story a story is a book written and is ilustrated, bla lbablbalbalbalbla....

Определить, сколько раз в числе встречается цифра а
Дано натуральное число. Определить: •сколько раз в нем встречается цифра а; •сколько раз в нем...

Определить, сколько раз в строке встречается символ 'A'
Программа, которая определит сколько раз встречается в строке символ 'A'; Помогите пожалуйста...


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

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

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