Помогите, пожалуйста!!!
Задача: Вычислить сумму элементов массива, начиная с "К"-го по порядку и до элемента равного нулю (если такой элемент встретиться; иначе - до конца массива). "К", длину массива и значения элементов вводить с клавиатуры.
ПОЖАЛЙСТА!!!
Полная версия: Массив
Цитата
Помогите, пожалуйста!!!
помогаю, а не полностью решаю:
{...}
Sum:=0;
For i:=k to Mmax do
If m[i]<>0 then
Sum:=Sum+m[i]
else Break;
End;
{...}
Sum - сумма
Mmax - длина массива
K - это "К"
http://forum.pascal.net.ru/index.php?showt...indpost&p=48876
А зачем одно и тоже постить?
А зачем одно и тоже постить?
Код
{...}
Sum := 0; i := k;
while (m[i] <> 0) and (i <= Mmax) do
begin
Sum := Sum + m[i];
inc(i)
end;
{...}
А то break как-то некрасиво ИМХО
А вот вся программа.
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.
Но смотри,это только для целого типа.
Код
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.
Но смотри,это только для целого типа.
Цитата
write('Введите порядок матрицы - ');
И где ты тут "матрицу" увидел?
Ой,я забыл,только что просто с матрицами работал.
Спасибо всем! 
To: trminator
Не согласен!
Не красиво, это когда GoTo используешь, а BREAK - вполне красиво и актуально.
P.S.: Как говорится: "На вкус и цвет товарища нет."
Цитата
А то break как-то некрасиво ИМХО
Не согласен!
Не красиво, это когда GoTo используешь, а BREAK - вполне красиво и актуально.
P.S.: Как говорится: "На вкус и цвет товарища нет."
holy wars
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.