не могу разобраться в чем ошибка

[pavel42]

Вот только начал в вузе изучать паскаль и пока почти ничего не понимаю, первая моя задача ))

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

program z1;
const
n=100;
var s1,s2,i:integer; x:array[1..n] of integer;
begin
    s1:=0;
    s2:=0;
    for i:=1 to n do
    while x[i]<0 do
    while i<=0 do
begin
      if x[i]/2 then
    else
        S1:=x[i]+S1;
      I:=I+1;
    end;
    while I<=n do
    begin
      if x[i]<0 then  НА ЭТОЙ СТРОЧКЕ error 40: Boolean expression expected
        S2:=S2+1
      else
      begin
      end;
      Вывод S1, S2; и тут не знаю как правильно сделать
    end;
end.

[Олвин]

Во-первых ЭТО что:

if x[i]/2 then
else...

?
Лучше не разбираться в чём ошибка, а побольше подумать над задачей и её решением, т. е. как в принципе можно её решить, не углубляясь в языки программирования. Далее повнимательнее изучить основные конструкции паскаля и после этого приступать к написанию программы. Я могу написать решение, но от этого "разобраться в чём ошибка", к сожалению не получится, задачу нужно решать самому.
P.S. Кнострукции типа

for i:=1 to n do
    while x[i]<0 do
    while i<=0 do
begin...

лучше вообще никогда не использовать, они даже выглядят страшно!

[pavel42]

спасибо за совет, если не сложно напишите основное в проге

[Stilet]

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

Раз уж ты в панике предложу свой вариант вместо твоего корявства:

Const n=100
 var s1,s2,i:integer; x:array[1..n] of integer;
begin
 {Вводим массив и сразу все находим}
 i:=1; 
  readln(x[i]);
  s1:=s1+x[i];
 while (x[i]<0) and (i<n) do begin
  inc(i)
  readln(x[i]);
  if x[i] mod 2 =0 then  s1:=s1+x[i];
 end; 
 while i<=n do begin
  readln(x[i]);
  if x[i]<0 then inc(s2);
  inc(i);
 end;
 end;
writeln(s1,s2);
end.

код не тестировал.

[pavel42]

[QUOTE=Олвин;247019][COLOR="DarkGreen"]Во-первых ЭТО что:
[CODE]if x[i]/2 then
else...

это я хотел написать то что если X[i] делиться на 2 тогда... ну и там уже продолжение проги (((((((((((((

[pavel42]

runtime error 106 at 0000:00c5
error 106: invalid numeric format.

[Sazary]

Подкорректированный вариант Stilet:

uses crt;
Const n=7;

 var s1,s2,i:integer;
 x:array[1..n] of integer;
begin
clrscr;
 {Вводим массив и сразу все находим}
 i:=1; 
 s1:=0;
 s2:=0;
 readln(x[i]);
 if x[i] mod 2<>0 then s1:=s1+x[i];

 while (x[i]<0) and (i<n) do
  begin
  inc(i);
  readln(x[i]);
  if x[i] mod 2 <> 0 then
   s1:=s1+x[i];
  end;

 while i<=n do
  begin
  inc(i);
  readln(x[i]);
  if x[i]<0 then inc(s2);
  end;

writeln('s1=',s1,'  s2=',s2);
readln;
end.

[pavel42]

Все работает...Большое спасибо ))

[Sazary]

просто черный экран появляеться при запуске))

А числа за вас кто должен вводить?

[pavel42]

я уже понял, спс ))