Массив целых чисел состоит из n елементов

@Kosmodzila007 · Регистрация: 09.10.2013

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

Найти сумму элементов, что имеют парные индексы.

@APALoff · 20.11.2013, 14:27

Pascal

1
2
3

Summ:=0;
For i:=1 to MaxMx do
  For j:=1 to MaxMy do If i=j then Summ:=Summ+M[i,i];

Если матрица квадратная:

Pascal

1	For i:=1 to Max do Summ:=Summ+M[i,i];

@Kosmodzila007 · 21.11.2013, 00:16 **[ТС]**

а можно всю программу?

@APALoff · 21.11.2013, 10:13

В разделе описание констант и переменных добавить:

Pascal

Max = ...; {сколько элементов в массиве, если он квадратный}
 {или в случае прямоугольной матрицы - ее длину и ширину:}
MaxMx=...;
MaxMy=...;
...
Summ : Real; {или integer - в зависимости от потребностей}
 
M : array[1..Max] of Real; {или integer - в зависимости от потребностей}
{или}
M : array[1..MaxMx,1...MaxMy] of Real; {или integer - в зависимости от потребностей}

@Kosmodzila007 · 22.11.2013, 20:50 **[ТС]**

Неизвестный идентификатор i

@Kosmodzila007 -19 / 1 / 0 Регистрация: 09.10.2013 Сообщений: 71
		1
	Массив целых чисел состоит из n елементов 20.11.2013, 12:35. Показов 774. Ответов 4 Метки нет (Все метки) Найти сумму элементов, что имеют парные индексы. 0

@Kosmodzila007 -19 / 1 / 0 Регистрация: 09.10.2013 Сообщений: 71
	21.11.2013, 00:16 [ТС]	3
	а можно всю программу? 0

@Kosmodzila007 -19 / 1 / 0 Регистрация: 09.10.2013 Сообщений: 71
	22.11.2013, 20:50 [ТС]	5
	Неизвестный идентификатор i 0