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

[Gluck231]

Проверьте домашку)

Вообще не врубаюсь в этот [#censored#] паскаль, но вроде что-то набросал)

Вещественный массив B содержит k элементов. Найти

и определить его порядковый номер.

Ну и кракозябра которую я набросал:

program lab1;
var
B : array[1..100] of real;
Max : real;
i,k,iMax : integer;
begin
write('vvedite kol-vo elementov massiva: ');
read(k);
write('vvedite massiv: ');
for i:=1 to k do
read(B[i]);

Max:= -1E32;
iMax:= 0;
for i:=1 to k do
    if (B[i]<0) and (B[i]>Max) then
    begin
    Max:= B[i];
    iMax:= i;
    end;
writeln('Max: ',Max,'iMax: ',iMax);
end.

Прошу поправить мои нелепости. Спасибо

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!


Модератор.

[Pein95]

я правильно понял задание? Нужно найти максимальный елемент среди чисел которые менше нуля?

[Alex11223]

А почему -1E32? Это же не предел real по-моему. Лучше используйте b[1] и iMax 1

[Gluck231]

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

я правильно понял задание? Нужно найти максимальный елемент среди чисел которые менше нуля?

Ну я именно так его понял)

[Gluck231]

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

А почему -1E32? Это же не предел real по-моему. Лучше используйте b[1] и iMax 1

Когда в классе делал похожую хрень с положительными числами, препод-ламерша мне втирала что 1E32 это максималка. Да и если я задам Max через B[1] и B[1] окажется положительным числом, то нихрена не получится, так как оно будет больше любого отрицательного числа массива, разве не?

[Alex11223]

А, показалось, что там все отрицательные. Ну тогда можно искать в цикле (while\repeat) первое отрицательное и потом с него же+1 и начинать, ибо массив одномерный.

[Gluck231]

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

А, показалось, что там все отрицательные. Ну тогда можно искать в цикле (while\repeat) первое отрицательное и потом с него же+1 и начинать, ибо массив одномерный.

А поподробней?) А то у меня из-за кривоты рук ничего не выходит)

program lab1;
var
B : array[1..100] of real;
Max : real;
i,k,iMax : integer;
begin
 write('vvedite kol-vo elementov massiva: ');
 read(k);
 write('vvedite massiv: ');
 for i:=1 to k do
 read(B[i]);
    Max:= B[i];
    iMax:= 1;
    while B[i]>0 do
        begin
        Max:= B[i+1];
        iMax:= i+1
        end;
 for i:=1 to k do
 if (B[i]<0) and (B[i]>Max) then
 begin
 Max:= B[i];
 iMax:= i;
 end;
 writeln('Max: ',Max,'  ','iMax: ',iMax);
end.

С такой записью мне в ответе упорно продолжает выдавать какой-то бред) Не пойму моя в этом вина, или это PascalABC глючит. В Borland Pascal который стоит на виртуальной машине вообще exe'шник не создаётся и хз как проверить правильность алгоритма)


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

эм...как-то так, например

j:=0;
repeat
   j:=j+1;
until (b[j]<0) or (j=k);
max:=b[j];
imax:=j;
for i:=j to k do
...

И используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

[Serge_Bliznykov]

можно применить подход Alex11223

а ещё в подобных задачах удобно использовать такой подход:

program lab1;
var
B : array[1..100] of real;
i,k,iMax : integer;
begin
 write('vvedite kol-vo elementov massiva: ');
 read(k);
 write('vvedite massiv: ');
 for i:=1 to k do
      read(B[i]);

 iMax := -1; {это признак того, что ещё максимальное отрицательное не нашли}

 for i:=1 to k do
   if (B[i]<0) then
     if iMax = -1  then
       {первое отрицательное запоминаем как максимальное}
       iMax := i
     else {иначе, если уже были отрицательные, сравним их с максимальным значением}
        if B[i]>B[iMax] then iMax := i;

 if iMax=-1 then WriteLn('в массиве вообще нет отрицательных чисел! ') 
 else 
   writeln('Max: ',B[iMax],'  ','iMax: ',iMax);
 Readln; 
end.

писал прямо на форуме, могут быть опечатки. Но, главное, чтобы идея была понятна!