Не могу разобратся с функцией (уже написана)

01.05.2010, 10:57. **Показов** 441. **Ответов** 1

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

Задан массив A из 100чисел. Описать функцию для определения максимального из отрицательных чисел среди N первых его элементов. В качестве параметров взять A и N. Если отрицательных нет, то результат функции - число 7777777

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
program massiv;
uses crt;
Type
Mass=array [1..100]of integer;
procedure Nabor;
var
A:Mass;
i: integer;
const N=15;
begin
clrscr;
randomize;
For i:=1 to N do
begin
A[i]:=random(51)-2;
write(A[i]:4);
end;
writeln;
end;
Function Poick (A:array  of integer):integer;
var
i,max,N:integer;
begin
   readln (A[i]);
   max:=A[1];
        for i:=1 to N do
        if (A[i]<0) and (A[i]>max) then max:=A[i];
            if max>=0 then writeln ('7777777') else
        writeln (max);
end;
Begin
Nabor;
Poick;
end.

Тормозится на предпоследней строке.

@Darker · 01.05.2010, 11:14

а в функцию, то кто параметр передавать должен??? и что самое главное от куда??? массив A сделай глбальной переменной, и функцию без параметров... тогда норм всё заработает...
или функцию поиска внеси в процедуру набора... и там её вызывай...

или так как ниже...

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
program massiv;
uses crt;
Type
Mass=array [1..100]of integer;
Var  A:Mass;
procedure Nabor;
var
i: integer;
const N=15;
begin
clrscr;
randomize;
For i:=1 to N do
begin
A[i]:=random(51)-2;
write(A[i]:4);
end;
writeln;
end;
Function Poick (B:array  of integer):integer;
var
i,max,N:integer;
begin
   readln (B[i]);
   max:=B[1];
        for i:=1 to N do
        if (B[i]<0) and (B[i]>max) then max:=B[i];
            if max>=0 then writeln ('7777777') else
        writeln (max);
end;
Begin
Nabor;
Poick(A);
end.

ps: но тут еще куча косяков...

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ