Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
lVladimirl
1

Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение

27.05.2014, 18:42. Показов 3118. Ответов 2
Метки нет (Все метки)

Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с параметром.
Задана последовательность из n целых чисел определить сколько из них принимает максимальное значение.
Буду очень благодарен!)))
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2014, 18:42
Ответы с готовыми решениями:

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

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

Задана последовательность чисел длиной n. Определить минимальное и максимальное значение этой последовательности ...
Задана последовательность чисел длиной n. Определить минимальное и максимальное значение этой...

2
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
27.05.2014, 19:51 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
program zad;
var
  mass : array of ShortInt;
  i, n, count : Byte;
  max : ShortInt;
 
begin
  Randomize;
  Write('Input n='); ReadLn(n);
  SetLength(mass, n);
  max := -100;
  for i := 0 to n-1 do
  begin
    mass[i] := Random(21) - 10;
    if (max < mass[i]) then
      max := mass[i];
    Write(mass[i]:4, #9);
  end;
  WriteLn;
  count := 0;
  for i := 0 to n-1 do
    if (max = mass[i]) then
      Inc(count);
  WriteLn('count=', count);
end.
0
Миниатюры
Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение  
0 / 0 / 1
Регистрация: 01.10.2015
Сообщений: 3
09.02.2016, 15:50 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Привет, спасибо огромное за прогу и блок-схему (Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение) , хотел у тебя спросить, что если мы в универе, примечание(выноски) сбоку пишем и используем русские слова (ввод, вывод) то как схема должна выглядеть. вот например наш вариант оформления.
0
Миниатюры
Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2016, 15:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Цикл с параметром: определить, сколько чисел из последовательности принимает максимальное значение
Добрый день. Помогите пожалуйста с программой. Нужно составить программу используя цикл с...

Осуществить ввод последовательность целых чисел количестве не меньше 3, определить сколько из них больше из их соседей
Осуществить ввод последовательность целых чисел количестве не меньше 3, определить сколько из них...

Дано 10 целых чисел, определить сколько из них имеют наибольшее значение
#include &lt;conio.h&gt; #include &lt;stdio.h&gt; #include &lt;math.h&gt; #include &lt;stdlib.h&gt; #include &lt;time.h&gt; ...

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


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

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

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