Нахождение максимального среди отрицательных элементов одномерного массива целых чисел

@gorodskoi · Регистрация: 18.09.2010

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

27. Составить программу нахождения максимального среди отрицательных элементов одномерного массива целых чисел. Для поиска максимального элемента использовать функцию пользователя.

Калі ласка дапамажыце з праграмамі.

@M@RsHall · 29.03.2011, 16:16

27. Примерно так. Ни пельмеса по белорусски xD

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
30
31
32
33
34
35
program ex;
uses crt;
type mass=array[1..100] of integer;
var n,s2:integer; a:mass;
procedure vvod(var n:integer; var a:mass);
var i:integer;
begin
writeln('n='); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]);
end; end;
procedure vivod(n:integer; a:mass);
var i:integer; begin
for i:=1 to n do
write(a[i]:4);
writeln;
end;
function otr(n:integer; a:mass):integer;
var i:integer; s:integer;
begin
s:=65000;
for i:=1 to n do
if (a[i]<0) and (a[i]>s) then
s:=a[i];
otr:=s;
end;
begin
clrscr;
vvod(n,a);
clrscr;
vivod(n,a);
s2:=otr(n,a);
write('Максимальный элемент среди минимальных=',s2);
readln;
end.

@iama · 29.03.2011, 16:17

Не по теме:

M@RsHall, это белорусский

@M@RsHall · 29.03.2011, 16:19

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

Не по теме:

M@RsHall, это белорусский

Не по теме:

Извиняюсь, конечно, если огорчил, но я их не различаю))

@gorodskoi · 29.03.2011, 16:25 **[ТС]**

Сообщение от M@RsHall

s:=65000;

Знайшоў памылку.

@iama · 29.03.2011, 16:26

gorodskoi, имеется в виду 2*MaxShortInt - 1

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	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. Задача: реализовать контроль корректности заполнения дат назначения. . .

@gorodskoi 1 / 1 / 0 Регистрация: 18.09.2010 Сообщений: 34

	Нахождение максимального среди отрицательных элементов одномерного массива целых чисел 29.03.2011, 16:02. Показов 2242. Ответов 5 Метки нет (Все метки) 27. Составить программу нахождения максимального среди отрицательных элементов одномерного массива целых чисел. Для поиска максимального элемента использовать функцию пользователя. Калі ласка дапамажыце з праграмамі. 0

@iama
	29.03.2011, 16:17
	Не по теме: M@RsHall, это белорусский 0

@iama 1360 / 988 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	29.03.2011, 16:26
	gorodskoi, имеется в виду 2*MaxShortInt - 1 0

Нахождение максимального среди отрицательных элементов одномерного массива целых чисел

Решение