одномерный массив размера n. Найти максимальный элемент массива среди элементов массива,после первого отрицательного (Паскаль)

[Элиза12345]

Дан одномерный массив,содержащий n значений.Найти максимальный элемент массива среди элементов массива,после первого отрицательного.
Помогите с решением,сижу не понимаю(

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

Модератор.

[Poma][a]

сижу не понимаю(

Конкретней пожалуйста. Что Вы не понимаете? Покажите хоть что-то что Вы сделали. Даже полностью не правильное решение...

[Элиза12345]

program maximum;
var 
n,i,max:integer;
a:array[1..50] of integer;
begin
writeln('Vvod kolicestva elementov:');
readln(n);
for i:=1 to n do
max:=a[1];
for i:=2 to n do
 if (a[i]>max) then
  max:= a[ i ];
         writeln('max = ',max);
         end;
         end.

[whatever]

Сообщение от Элиза12345

program maximum;
var 
n,i,max:integer;
a:array[1..50] of integer;
begin
writeln('Vvod kolicestva elementov:');
readln(n);
for i:=1 to n do
max:=a[1];
for i:=2 to n do
 if (a[i]>max) then
  max:= a[ i ];
         writeln('max = ',max);
         end;
         end.

Ну почти правильно.

program maximum;
var 
n,i,max:integer;
a:array[1..50] of integer;
begin
writeln('Vvod kolicestva elementov:');
readln(n);
Randomize;
for i:=1 to n do
m[i]:=random(100)-50;
i:=1;
while a[i]>=0 do
  i:=i+1;
i:=i+1;
max:=a[i];
i:=i+1;
while i<=n do
 if (a[i]>max) then
  max:= a[ i ];
         writeln('max = ',max);
         end;
         end.

Не проверял. Да и вообще не самый лучший вариант, возможны выходы за границы массива. Но писать красиво и с нуля не хочу.

[Poma][a]

Ладно, раз пытались, то и помочь не грех...

var
    a : array [1..1000] of Integer;
    n, i, max : Integer;

begin
    ReadLn (n);

    for i := 1 to n do
         Read (a[i]);

    i := 1;
    while a[i] >= 0 do
        Inc (i);

    max := a[i];

    for i := i+1 to n do
         if a[i] > max then
             max := a[i];

    WriteLn (max)
end.

Не проверял

Уважаемый Пофиг

i:=i+1;
max:=a[i];
i:=i+1;

Вам не кажется это эм... слегка смешным? Кстати у Вас есть обращение к массиву m, но нет самого массива m. И напоследок, последний цикл будет крутиться вечно...

[Mad_Cat]

2Poma][a, небольшая корректировочка

while (a[i] >= 0) and (i<=n) do{чтобы не вылететь за границы массива}
        Inc (i);
if i>=n then writeln('HeT MakcuMyMa')
else begin
max := a[i+1]; // так как отрицательный-то сам нам не нужен как бы
inc(i,2);
for j := i to n do // ну не буит паскаль компилировать(for i := i+1 to n do)
         if a[j] > max then
             max := a[j];
WriteLn (max)
end;

[whatever]

Сообщение от 'Poma

Уважаемый Пофиг...

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

Не проверял. Да и вообще не самый лучший вариант, возможны выходы за границы массива. Но писать красиво и с нуля не хочу.

По поводу бесконечного цикла - да, проглядел.

[Poma][a]

MadCat, ага согласен, кроме

// ну не буит паскаль компилировать(for i := i+1 to n do)

whatever, я просто сообщил об ошибках увиденных мною Как это сделал MadCat за что ему огромное спасибо)