2 задачи на Массивы.

@slater · Регистрация: 27.09.2015

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

Здравствуйте! Очень нужна ваша помощь! Помогите, пожалуйста с задачами.
1. Найти количество нечётных элементов одномерного массива.
2. Найти сумму элементов, кратных заданному числу P.

@mamedovvms · 02.10.2009, 11:20

Pascal

1) 
k:=0;
for i:=1 to n do
 if odd(a[i]) then k:=k+1;
 
2)
sum:=0;
for i:=1 to n do
 if (a[i] mod p=0) then sum:=sum+a[i];

@slater 0 / 0 / 0 Регистрация: 27.09.2015 Сообщений: 26
		1
	2 задачи на Массивы. 02.10.2009, 11:15. Показов 1322. Ответов 1 Метки нет (Все метки) Здравствуйте! Очень нужна ваша помощь! Помогите, пожалуйста с задачами. 1. Найти количество нечётных элементов одномерного массива. 2. Найти сумму элементов, кратных заданному числу P. 0

	02.10.2009, 11:20

2 задачи на Массивы.

Решение