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

27.05.2014, 18:42. **Показов** 5314. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с параметром.
Задана последовательность из n целых чисел определить сколько из них принимает максимальное значение.
Буду очень благодарен!)))

@JokeR.BY · 27.05.2014, 19:51

Pascal

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.

@вадим0534 · 09.02.2016, 15:50

Привет, спасибо огромное за прогу и блок-схему (Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение) , хотел у тебя спросить, что если мы в универе, примечание(выноски) сбоку пишем и используем русские слова (ввод, вывод) то как схема должна выглядеть. вот например наш вариант оформления.

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

Решение

Решение

lVladimirl
		1
	Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение 27.05.2014, 18:42. Показов 5314. Ответов 2 Метки нет (Все метки) Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с параметром. Задана последовательность из n целых чисел определить сколько из них принимает максимальное значение. Буду очень благодарен!)))

@вадим0534 0 / 0 / 1 Регистрация: 01.10.2015 Сообщений: 3
	09.02.2016, 15:50	3
	Сообщение было отмечено Памирыч как решение Решение Привет, спасибо огромное за прогу и блок-схему (Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение) , хотел у тебя спросить, что если мы в универе, примечание(выноски) сбоку пишем и используем русские слова (ввод, вывод) то как схема должна выглядеть. вот например наш вариант оформления. Миниатюры 0

Опции темы