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

18.04.2012, 00:37. **Показов** 1574. **Ответов** 1

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

Печать элементов по массиву 5,по формату:12
Тип обрабатываемых данных-вещественный
Очень срочно надо,выручите,пожалуйста!=)))))))))=****

@slon · 18.04.2012, 01:35

так в массиве заполненым рандомо к может повторятся несколько раз, поэтому тут нужно уточнее!!
Вот мой вариант, он находит первое совпадение с заданным к после чего останавливает его нахождение и ищет сумму!

Pascal

program qq;
uses crt;
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.

Вариант 2(юез рандома и с учтом е повторения элемента равного к);

Pascal

program qq;
uses crt;
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
write('a[',i,']=');
readln(a[i]);
write(a[i]:0:0);
if a[i]=k then 
m:=i;
end;
sum:=0;
for i:=m to n do begin
if a[i]<>0 then sum:=sum+a[i]
else break;
end;
write('сумма =',sum);
end.

Тан
		1
	Массив. Вычислить сумму элементов, начиная с "К"-го по порядку и до элемента,равного нулю 18.04.2012, 00:37. Показов 1574. Ответов 1 Метки нет (Все метки) Помогите,пожалуйста!напишите программу!=)))))) Задание Вычисление суммы элементов массива,начиная с "К"-го по порядку и до элемента,равного нулю(если такой элемент встретится;иначе-до конца массива)."К",длину массива и значения элементов вводятся с клавиатуры. Печать элементов по массиву 5,по формату:12 Тип обрабатываемых данных-вещественный Очень срочно надо,выручите,пожалуйста!=)))))))))=****

Опции темы

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

Решение