Вычислить сумму элементов в массиве после первого отрицательного

@p4ss1v · Регистрация: 10.11.2012

Дан массив из n чисел. Вычислите сумму элементов в массиве после первого отрицательного.

Pascal

Program a6_2_8;
const n=15;
var a:array[1..n] of integer;
 x,i,m,c:integer;
begin
randomize; 
for i:=1 to 15 do
begin
  a[i]:=random(30)-15;
  write(a[i],' ');
 end;
 begin
   for i:=1 to n do
   if a[i]<0 then break ;  
end;   
   begin
   i:=m;
   x:=0;
   for c:= m to n do
   x:=x+..;                  
   writeln;writeln (x);
 end;
  end.

Помогите доделать и показать мои ошибки.

@ermolay · 10.11.2012, 18:03

Pascal

const 
  n=15;
var
  a: array[1..n] of integer;
  x, i, m, c: integer;
 
begin
  randomize; 
  for i := 1 to n do
  begin
    a[i] := random(30) - 15;
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to n do
    if a[i] < 0 then break;    
  m := i;
  x := 0;
  for i := m to n do
    x := x + a[i];                  
  writeln(x);
end.

Добавлено через 1 минуту
ошибка была здесь

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

m := i;

незаконченная часть

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

for i := m to n do
x := x + a[i];

@p4ss1v · 10.11.2012, 18:11 **[ТС]**

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

for i := m to n do
x := x + a[i];

тогда for i := m+1 to n do. Надо же после отрицательного.

@ermolay · 10.11.2012, 18:12

и лишние begin end;

Добавлено через 1 минуту

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

тогда for i := m+1

да, точно, невнимательность - мой бич ))

@p4ss1v · 10.11.2012, 18:16 **[ТС]**

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

да, точно, невнимательность - мой бич ))

Я только её доделал, решил посмотреть на форум и ты ответил

) Но все равно большое спасибо, что откликнулся

@p4ss1v 0 / 0 / 1 Регистрация: 10.11.2012 Сообщений: 15
	10.11.2012, 18:11 [ТС]	3
	Сообщение от ermolay for i := m to n do x := x + a[i]; тогда for i := m+1 to n do. Надо же после отрицательного. 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	10.11.2012, 18:12	4
	и лишние begin end; Добавлено через 1 минуту Сообщение от p4ss1v тогда for i := m+1 да, точно, невнимательность - мой бич )) 1

@p4ss1v 0 / 0 / 1 Регистрация: 10.11.2012 Сообщений: 15
	10.11.2012, 18:16 [ТС]	5
	Сообщение от ermolay да, точно, невнимательность - мой бич )) Я только её доделал, решил посмотреть на форум и ты ответил ) Но все равно большое спасибо, что откликнулся 0

Опции темы