Массив, одномерный массив Опции

[Маруха]

Помогите, пожалуйста!!!
Задача: Вычислить сумму элементов массива, начиная с "К"-го по порядку и до элемента равного нулю (если такой элемент встретиться; иначе - до конца массива). "К", длину массива и значения элементов вводить с клавиатуры.

ПОЖАЛЙСТА!!!

[APAL]

Помогите, пожалуйста!!!

помогаю, а не полностью решаю:

{...}
Sum:=0;
For i:=k to Mmax do
  If m[i]<>0 then 
         Sum:=Sum+m[i]
      else  Break;
    End;
{...}

Sum - сумма
Mmax - длина массива
K - это "К"

[APAL]

http://forum.pascalnet.ru/index.php?showt...indpost&p=48876
А зачем одно и тоже постить?

[trminator]

Код

{...}
Sum := 0; i := k;
while (m[i] <> 0) and (i <= Mmax) do
begin
   Sum := Sum + m[i];
   inc(i)
end;
{...}

А то break как-то некрасиво ИМХО

[Vardes]

А вот вся программа.

Код

Var
a:array [1..100] of integer;
mas,s,i,n:integer;
begin
write('Введите порядок матрицы - ');
readln(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
if a[i]<>0 then s:=s+a[i] else break;
writeln('Сумма всех членов='s);
end.

Но смотри,это только для целого типа.

[volvo]

write('Введите порядок матрицы - ');

И где ты тут "матрицу" увидел?

[Vardes]

Ой,я забыл,только что просто с матрицами работал.

[Маруха]

Спасибо всем!

[APAL]

To: trminator

А то break как-то некрасиво ИМХО

Не согласен!
Не красиво, это когда GoTo используешь, а BREAK - вполне красиво и актуально.

P.S.: Как говорится: "На вкус и цвет товарища нет."

Сообщение отредактировано: APAL - 13.11.2005 0:58

[Altair]

holy wars