Вычисление суммы элементов массива, начиная с "К"-го по порядку и до элемента, равного нулю

@Papadoc · Регистрация: 14.12.2015

Author24 — интернет-сервис помощи студентам

Помогите, суть задания "Вычисление суммы элементов массива,начиная с "К"-го по порядку и до элемента,равного нулю(если такой элемент встретится;иначе-до конца массива)"
выдает ошибку в строчке №22 : Ошибка времени выполнения: Индекс находился вне границ массива.

Pascal

program zz;
var 
  a:array[1..100]of real;
  i,n,k,m:integer;
  sum:real;
BEGIN
  write('размерность =');
  readln(n);
  write('k=');
  readln(k);
  for i:=1 to n do 
  begin
    a[i]:=random(10);
    write('');
    write(a[i]:0:0);
  end;
  sum:=0;
  for i:=1 to n do
  begin
    if a[i]=k then
    begin
      m:=i;
      break;
    end;
  end;
  for i:=m to n do
  begin
    if a[i]<>0 then 
    sum:=sum+a[i]
    else break;
  end;
  write('Сумма=',sum);
 end.

@ZX Spectrum-128 · 16.12.2015, 17:50

Pascal

program zz;
 
var
  a: array[1..100] of real;
  i, n, k, m: integer;
  sum: real;
 
begin
  write('Размерность = ');
  readln(n);
  write('k = ');
  readln(k);
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write(a[i]:0:0, ' ');
  end;
  writeln;
  m := n;
  for i := k to n do
    if a[i] = 0 then 
    begin
      m := i;
      break;
    end;
  sum := 0;        
  for i := k to m do    
    sum := sum + a[i];
  write('Сумма = ', sum);
end.

@Papadoc · 16.12.2015, 19:25 **[ТС]**

По этой программе сумма все время 0 получается, есть еще варианты?

Добавлено через 39 секунд
По этой программе сумма все время 0 получается, есть еще варианты?

Сообщение от ZX Spectrum-128

Pascal

program zz;
 
var
  a: array[1..100] of real;
  i, n, k, m: integer;
  sum: real;
 
begin
  write('Размерность = ');
  readln(n);
  write('k = ');
  readln(k);
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write(a[i]:0:0, ' ');
  end;
  writeln;
  m := n;
  for i := k to n do
    if a[i] = 0 then 
    begin
      m := i;
      break;
    end;
  sum := 0;        
  for i := k to m do    
    sum := sum + a[i];
  write('Сумма = ', sum);
end.

@volvo · 16.12.2015, 19:31

Pascal

program zz;
 
var
  a: array[1..100] of real;
  i, n, k, m: integer;
  sum: real;
 
begin
  write('размерность =');
  readln(n);
  write('k=');
  readln(k);
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write('');
    write(a[i]:4:0);
  end;
  sum := 0;
  for i := k to n do
  begin
    if a[i] <> 0 then 
      sum := sum + a[i]
    else break;
  end;
  write('Сумма=', sum);
end.

Новичок · 16.12.2015, 19:35

Pascal

var
  a:array[1..100] of Integer;
  i,n,k,sum:Integer;
begin
  Randomize;
  Write('n,k:');
  Readln(n,k);
  for i:=1 to n do 
  begin
    a[i]:=Random(10);
    Write(a[i],' ');
  end;
  Writeln;
  i:=k; sum:=0;
  while (i<=n) and (a[i]<>0) do
   begin
    inc(sum,a[i]);
    inc(i);
   end;
  Write('Сумма = ', sum);
end.

@Papadoc · 16.12.2015, 19:36 **[ТС]**

Все равно сумма почему-то всегда = 0, надо чтобы не рандомно, например ввели мы размерность 4, а потом ввели К=3, чтобы программа вычислила сумму чисел, то есть 3 + 2 + 1 и на нуле остановилась

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

Pascal

program zz;
 
var
  a: array[1..100] of real;
  i, n, k, m: integer;
  sum: real;
 
begin
  write('размерность =');
  readln(n);
  write('k=');
  readln(k);
  for i := 1 to n do 
  begin
    a[i] := random(10);
    write('');
    write(a[i]:4:0);
  end;
  sum := 0;
  for i := k to n do
  begin
    if a[i] <> 0 then 
      sum := sum + a[i]
    else break;
  end;
  write('Сумма=', sum);
end.

@volvo · 16.12.2015, 19:41

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

Все равно сумма почему-то всегда = 0

Бла-Бла-Бла

Вычисление суммы элементов массива, начиная с "К"-го по порядку и до элемента, равного нулю

Дальнейший разговор с тобой мне неинтересен. Если ты с ходу рабочее называешь нерабочим - о чем с тобой вообще разговаривать?

@Papadoc · 16.12.2015, 19:52 **[ТС]**

Лол, признаюсь, тут моя вина, работает, но сумма подсчитана не правильно

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

Бла-Бла-Бла
Вложение 619828

Дальнейший разговор с тобой мне неинтересен. Если ты с ходу рабочее называешь нерабочим - о чем с тобой вообще разговаривать?

@ZX Spectrum-128 · 16.12.2015, 20:20

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

По этой программе сумма все время 0 получается, есть еще варианты?

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

но сумма подсчитана не правильно

Papadoc, глупости не говорите. Изначально всё работало прекрасно.

@Papadoc · 16.12.2015, 20:53 **[ТС]**

Помогите сделать, чтобы не рандомные числа были а последовательно убывающие до 0

Сообщение от ZX Spectrum-128

Papadoc, глупости не говорите. Изначально всё работало прекрасно.

@ZX Spectrum-128 · 16.12.2015, 21:03

Pascal

1	a[i] := n-i;

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	16.12.2015, 19:41	7
	Сообщение от Papadoc Все равно сумма почему-то всегда = 0 Бла-Бла-Бла Дальнейший разговор с тобой мне неинтересен. Если ты с ходу рабочее называешь нерабочим - о чем с тобой вообще разговаривать? 0

@Papadoc 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 6
	16.12.2015, 19:52 [ТС]	8
	Лол, признаюсь, тут моя вина, работает, но сумма подсчитана не правильно Сообщение от volvo Бла-Бла-Бла Вложение 619828 Дальнейший разговор с тобой мне неинтересен. Если ты с ходу рабочее называешь нерабочим - о чем с тобой вообще разговаривать? 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	16.12.2015, 20:20	9
	Сообщение от Papadoc По этой программе сумма все время 0 получается, есть еще варианты? Сообщение от Papadoc но сумма подсчитана не правильно Papadoc, глупости не говорите. Изначально всё работало прекрасно. Миниатюры 0

@Papadoc 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 6
	16.12.2015, 20:53 [ТС]	10
	Помогите сделать, чтобы не рандомные числа были а последовательно убывающие до 0 Сообщение от ZX Spectrum-128 Papadoc, глупости не говорите. Изначально всё работало прекрасно. 0

	16.12.2015, 21:03

Опции темы