Процедура: найти разницу между максимальным положительным и минимальным элементами массивов

@P1RoG · Регистрация: 11.10.2009

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

Что сделать что бы в этой строчки "if c[j]>max then max:=c[j];" ,а по-идеи и в той где min, не выдавало ошибки " Type is mismatch " ?

Процедура должна выполнять вот такое условие : найти разницу между максимальным положительным и минимальным элементами массивов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure p(l:integer; c:mas; var raz:integer); 
var j,max,min:integer; 
begin 
max:=-maxint;
min:=maxint;
begin
for j:=1 to l do
if c[j]>0 then
if c[j]>max then max:=c[j];
end;
begin
for j:=1 to l do
if c[j]<min then min:=c[j]
end;
raz:=max-min;
end;

@Puporev · 16.12.2009, 18:25

P1RoG, А что бы после каждой строчки begin не писать? Не пробовали?

@P1RoG · 16.12.2009, 18:41 **[ТС]**

А так можно? )

Сча попробую без бегинов с ендами в тех местах где как мне кажется они не нужны)

Добавлено через 2 минуты
Ошибка не исчезла :\

@alex0983 · 16.12.2009, 19:01

В основной программе добавьте в верху строки

Pascal
1
2
Type
mas=array [1..l] of integer; {Объявляем массив}

@P1RoG · 16.12.2009, 19:12 **[ТС]**

все равно там же ошибка Т_Т

Могу выложить полностью программу, но она покажется большая и тогда не то не поможет )

@alex0983 · 16.12.2009, 19:18

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

max:=-maxint;
min:=maxint;

maxint к какому типу принадлежат?

@P1RoG · 16.12.2009, 19:47 **[ТС]**

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

maxint к какому типу принадлежат?

это тип в паскале Оо maxint это наибольшее возможное число, а -maxint наименьшее.

Он вроде бы не где не прописывается.

Добавлено через 7 минут
все спс, ошибку нашел. Она как раз состояла в том что тип не тот стоял не в том месте Т_Т Теперь ошибка в другом высскакивает, но ладно пока сам попытаюсь разобратся

Добавлено через 14 минут
Как сделать так что бы на разницу что я нахожу в процедуре записывалась в отдельный массив? Потому что у меня туда тока последняя разница вставляется :/

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.12.2009, 18:25
	P1RoG, А что бы после каждой строчки begin не писать? Не пробовали? 0

@P1RoG 0 / 0 / 0 Регистрация: 11.10.2009 Сообщений: 66
	16.12.2009, 18:41 [ТС]
	А так можно? ) Сча попробую без бегинов с ендами в тех местах где как мне кажется они не нужны) Добавлено через 2 минуты Ошибка не исчезла :\ 0

@P1RoG 0 / 0 / 0 Регистрация: 11.10.2009 Сообщений: 66
	16.12.2009, 19:12 [ТС]
	все равно там же ошибка Т_Т Могу выложить полностью программу, но она покажется большая и тогда не то не поможет ) 0