Какую задачу рашает приведенная программа?

@SergeyG · Регистрация: 17.02.2015

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

Точно и четко сформулировать условие задачи, которая решается в данной программе:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Program Kr_2_3;
 Const NMax = 100;
 Type LinMass = Array[1..NMax] Of Integer;
 Var A : LinMass; N, I, M, S : Integer;
 Begin
   Write('Количество элементов массива? '); ReadLn(N);
   For I := 1 To N Do
   Begin
       Write('Введите A[', I, '] '); ReadLn(A[I]);
   End;
   M := A[1]; S := 1;
   For I := 2 To N do
   Begin
       If A[I] = M Then S := Succ(S);
       If A[I] > M Then Begin M := A[I]; S := 1 End
   End;
   WriteLn('Ответ: ', S);
  End.

Задать массив и определить, каким для него будет S.

@APALoff · 17.02.2015, 14:41

Сообщение от SergeyG

сформулировать условие задачи

Поиск максимального по значению элемента массива, а так же подсчет количества таких одинаковых максимальных элементов.

@SergeyG · 17.02.2015, 14:44 **[ТС]**

Сообщение от SergeyG

Задать массив и определить, каким для него будет S.

Вот бы ещё узнать

@APALoff · 17.02.2015, 14:56

Сообщение от SergeyG

Вот бы ещё узнать

И что Вас останавливает?
Задачу разъяснили. Код уже есть. Вы что, изучаете Паскаль только в теории, не запуская компилятора?

Добавлено через 1 минуту

Не по теме:

Кстати, это случайно не Ваша тема? Какую задачу решает следующий фрагмент программы. Указать возможные ошибки при выполнении:

@SergeyG · 17.02.2015, 15:12 **[ТС]**

практически так главное контрольную сдать нас не на программистов учат так для общего развития преподают

Добавлено через 6 минут
если и результат запуска программы скинете буду рад

@APALoff · 17.02.2015, 15:13

SergeyG, запускать чужие программы, чтобы запостить сюда результат - мне не интересно! Т.к. Вы, приложив малую толику усилий, можете сами скачать Паскаль и запустить данный код.

@SergeyG · 17.02.2015, 15:19 **[ТС]**

может быть я немного не корректен но это первая и последняя встреча с паскалем не считая 1992 кода когда техникум заканчивал и на лавры программистов не претендую мне только нужен результат извините что побеспокоил

@APALoff · 17.02.2015, 15:45

Чтобы скачать и установить Паскаль - много знаний не нужно, а ими Вы явно обладаете, раз уж смогли выйти в интернет, найти форум, зарегистрироваться и создать тему.

@SergeyG · 17.02.2015, 15:48 **[ТС]**

ладно уговорил уже сделал лень это двигатель прогресса

@APALoff · 17.02.2015, 15:50

Сообщение от SergeyG

лень это двигатель прогресса

Ну я рад что Вы это поняли. =) Я и сам ленивый... иногда.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@SergeyG 0 / 0 / 0 Регистрация: 17.02.2015 Сообщений: 22
	17.02.2015, 15:12 [ТС]
	практически так главное контрольную сдать нас не на программистов учат так для общего развития преподают Добавлено через 6 минут если и результат запуска программы скинете буду рад 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	17.02.2015, 15:13
	SergeyG, запускать чужие программы, чтобы запостить сюда результат - мне не интересно! Т.к. Вы, приложив малую толику усилий, можете сами скачать Паскаль и запустить данный код. 0

@SergeyG 0 / 0 / 0 Регистрация: 17.02.2015 Сообщений: 22
	17.02.2015, 15:19 [ТС]
	может быть я немного не корректен но это первая и последняя встреча с паскалем не считая 1992 кода когда техникум заканчивал и на лавры программистов не претендую мне только нужен результат извините что побеспокоил 0

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	17.02.2015, 15:45
	Сообщение было отмечено SergeyG как решение Решение Чтобы скачать и установить Паскаль - много знаний не нужно, а ими Вы явно обладаете, раз уж смогли выйти в интернет, найти форум, зарегистрироваться и создать тему. 1

@SergeyG 0 / 0 / 0 Регистрация: 17.02.2015 Сообщений: 22
	17.02.2015, 15:48 [ТС]
	ладно уговорил уже сделал лень это двигатель прогресса 0

Какую задачу рашает приведенная программа?

Решение