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

@HondaUS · Регистрация: 10.01.2014

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

Дан произвольный массив Т размерности n. Найти сумму элементов массива Т, имеющих четные порядковые номера, а также сумму элементов массива Т, имеющих нечетные порядковые номера. Исходные данные взять самостоятельно.

@code-n'-help · 14.02.2014, 19:11

Попробуй так

Pascal

type mas=array[1..10000] of word;
Function Sumchet(A:Mas;n:word):longword;
var i:word; summa:longword;
begin
for i:=1 to n do
if i mod 2 =0 
then summa:=summa+A[i];
sumchet:=summa;
end;
Function Sumnechet(A:Mas;n:word):longword;
var i:word; summa:longword;
begin
for i:=1 to n do
if i mod 2 =1 
then summa:=summa+A[i];
sumnechet:=summa;
end;

Дальше сам сможешь?

Добавлено через 32 секунды

Сообщение от code-n'-help

Попробуй так

Pascal

type mas=array[1..10000] of word;
Function Sumchet(A:Mas;n:word):longword;
var i:word; summa:longword;
begin
for i:=1 to n do
if i mod 2 =0 
then summa:=summa+A[i];
sumchet:=summa;
end;
Function Sumnechet(A:Mas;n:word):longword;
var i:word; summa:longword;
begin
for i:=1 to n do
if i mod 2 =1 
then summa:=summa+A[i];
sumnechet:=summa;
end;

Дальше сам сможешь?

так лутьше

@HondaUS 1 / 1 / 2 Регистрация: 10.01.2014 Сообщений: 105
		1
	Найти сумму элементов массива Т, имеющих четные порядковые номера 13.02.2014, 15:41. Показов 2638. Ответов 1 Метки нет (Все метки) Дан произвольный массив Т размерности n. Найти сумму элементов массива Т, имеющих четные порядковые номера, а также сумму элементов массива Т, имеющих нечетные порядковые номера. Исходные данные взять самостоятельно. 0

	14.02.2014, 19:11

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

Решение