массив

[alex22527]

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

[Риндера]

while a[i] > 0 do
   inc(k);

Могли бы и сами немного мозгами пошевелить.

[Serge_Bliznykov]

что ж это были за лабы, которые легче этой?!
фактически Вам нужно посчитать сколько в массиве элементов не равны нулю, пока не встретится число меньше нуля:

 CountPozite:=0; {обнулим счётчик положительных чисел}
 i := 1; {начнём с первого элемента массива} 
 while (a[i]>=0) and (i<=n)  do begin {пока не встретили отрицательное число и не дошли до конца массива делаем:}
   if a[i]>0 then {если число положительное}
      CountPozite:=CountPozite + 1: {увеличиваем счётчик положительных чисел}
   i := i + 1; {переходим к следующему элементу массива}  
end; {конец цикла}

WriteLn('Всего положительных чисел ', CountPozite);
readln;

так понятнее?

[ROMA2PVT]

Uses
 CRT;
var
 a:array[1..50] of integer;
 i,n,kol:integer;
begin
ClrScr;
write('Ââåäèòå êîë-âî ýëåìåíòîâ: ');
repeat
 readln(n);
until n<50;
randomize;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
end;
kol:=0;
for i:=1 to n do
begin
 if a[i]<0 then
  break
   else
    inc(kol);
end;
writeln;
if kol<>0 then
 writeln('Kol:=',kol)
else
 writeln('Îòðèöàòåëüíûé ïåðâûé');
readkey
end.

[alex22527]

предыдущие лабы про массивы были лёгкими,а эту понять не могу((((Риндера можешь по подробней

[Риндера]

А куда, извините, подробнее? Тебе осталось просто объявить переменные и занести в массив значения. Далее мой цикл сделает что нужно.

Serge_Bliznykov и ROMA2PVT, что за ужасы вы понаписали?)))) Парню нужно просто посчитать, сколько положительных элементов стоит до первого отрицательного...

[Serge_Bliznykov]

Риндера, да ну? Всё так просто?

Ладно. Рассмотрим Ваш код из пост #2.
то, что простительно нубу, непростительно Вам.

1) Вам не кажется, что Ваш цикл бессмысленен? Точнее бесконечен по определению - в цикле i не изменяется...
2) Где проверка на достижение конца массива?

3) и, самое главное. Нужно посчитать количество положительных. Но дело в том, что ноль положительным число не является. поэтому нолики надо пропускать.

Вот если устранить эти три мелких нюанса, то из Вашего кода и получится примерно то, что я набросал...

[Stilet]

А почему Паскаль?
Может:

MODULE Массив;
IMPORT StdLog,ObxRandom;
VAR a:ARRAY(10) OF INTEGER;

PROCEDURE Нука*;
VAR i,cnt:INTEGER;ok:BOOLEAN;
BEGIN
 StdLog.Clear;cnt:=0;ok:=TRUE;
 FOR i:=0 TO LEN(a)-1 DO
  a[i]:=SHORT(ENTIER(90-ObxRandom.Uniform()*100));
  IF (a[i]<0) THEN ok:=FALSE;END;
  IF ok&(a[i]#0) THEN INC(cnt); END;
  StdLog.Int(a[i]);StdLog.Ln;
 END;
 StdLog.String('Таких = ');
 StdLog.Int(cnt);StdLog.Ln;
END Нука;

END Массив.

Результ:

66
16
-8
44
57
16
8
9
-1
7
Таких = 2

[alex22527]

Stilet надо именно в паскале.

[Stilet]

У х ты... Проснулся наконец то.
А чтож сразу не указал?
Впрочем тебе в и Паскале ее уже решили.