Подсчитать количество положительных элементов массива, стоящих на нечетных местах

@неуч0 · Регистрация: 05.07.2013

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

Задачи на одномерные массивы

5 В одномерном числовом массиве размерности n подсчитать количество положительных элементов, стоящих на нечетных местах.

Новичок · 05.07.2013, 14:25

Pascal

var a:array[1..20]of Integer;
i,n,k:Integer;
begin
k:=0;
Write('n=');
Readln(n);
Writeln('Введите элементы массива,целые числа:');
for i:=1 to n do
begin
Write('a[',i,']=');
Readln(a[i]);
end;
for i:=1 to n do
if odd(i) and (a[i]>0) then inc(k);
Writeln('Количество положительных элементов,стоящих на нечетных местах:',k);   
Readln;
end.

@неуч0 0 / 0 / 0 Регистрация: 05.07.2013 Сообщений: 5
		1
	Подсчитать количество положительных элементов массива, стоящих на нечетных местах 05.07.2013, 12:26. Показов 2114. Ответов 1 Метки нет (Все метки) Задачи на одномерные массивы 5 В одномерном числовом массиве размерности n подсчитать количество положительных элементов, стоящих на нечетных местах. 0

	05.07.2013, 14:25

Опции темы

Подсчитать количество положительных элементов массива, стоящих на нечетных местах

Решение