Найти сумму элементов массива, начиная с k+1-го

@Jefka · Регистрация: 24.11.2013

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

Дан массив А, содержащий 10 элементов вещественного типа, в котором первые k элементов имеют один знак, а остальные – другой. Определить индекс элемента массива, у которого знак сменился на противоположный. Найти сумму элементов массива, начиная с k+1-го. Индексацию элементов заданного массива начать с 10. Для перебора элементов массива использовать оператор Repeat.

@Jefka · 09.12.2013, 11:30 **[ТС]**

Up!

@Jefka · 11.12.2013, 00:17 **[ТС]**

Только пример есть, и все.

Перед выполнением следует изучить разделы 3.8 – 3.9, затем разработать алгоритм задачи, затем составить програм-му.
Пример выполнения задачи 3
Дан массив А, содержащий 20 элементов целого типа – положительных и отрицательных. Сформировать массивы В и С, содержащие соответственно положительные и отрицательные элементы массива А. Найти сумму элементов массивов В и С и количество содержащихся в них элементов. Индексацию элементов заданного массива начать с –5. Для перебора элементов массива использовать оператор For.
Программа

Pascal

Program z3;
Var a: Array [-5..14] of Real;
b, c: Array [1..20] of Real;
i, bi, ci: Integer; s1, s2: Real;
Begin
For i:= -5 To 14 Do Read (a[i]);
s1:=0; s2:=0; bi:=0; ci:=0;
For i:= -5 To 14 Do
If a[i] > 0 
Then Begin bi:=bi+1; b[bi]:=a[i] s1:= s1+b[bi] End
Else Begin ci:=ci+1; c[ci]:=a[i] s2:=s2+c[ci] End;
Writeln (bi, ’ положительных элементов:’ );
For i:= 1 To bi Do Write (b[i]); Writeln; 
Writeln(’ их сумма равна’, s1);
Writeln (ci, ’ отрицательных элементов:’)
For i:= 1 To ci Do Write (c[i]); Writeln; 
Writeln(’их сумма равна’, s2);
End.

@Jefka 0 / 0 / 1 Регистрация: 24.11.2013 Сообщений: 4
		1
	Найти сумму элементов массива, начиная с k+1-го 30.11.2013, 14:35. Показов 1326. Ответов 2 Метки нет (Все метки) Дан массив А, содержащий 10 элементов вещественного типа, в котором первые k элементов имеют один знак, а остальные – другой. Определить индекс элемента массива, у которого знак сменился на противоположный. Найти сумму элементов массива, начиная с k+1-го. Индексацию элементов заданного массива начать с 10. Для перебора элементов массива использовать оператор Repeat. 0

@Jefka 0 / 0 / 1 Регистрация: 24.11.2013 Сообщений: 4
	09.12.2013, 11:30 [ТС]	2
	Up! 0

	11.12.2013, 00:17

Найти сумму элементов массива, начиная с k+1-го

Решение