дан массив целых чисел. Найти количество нечетных элементов массива

@саният · Регистрация: 24.05.2011

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

я плохо разбираюсь в массивах. Если можно то напишите пож программу как можно в развернутом виде. Заранее спасибо!

@Azazello7 · 30.05.2011, 18:14

по моему, тебе стоило написать я плохо разбираюсь в программировании, если массивы для тебя - темный лес.....

Delphi

const n=10;
var i:integer;
mas:array[1..n]:integer; {объявляем массив}
kol:integer;
 
begin
 
for i:=1 to n do{просто заполняем массив}
   mas[i]:=random(50)-100;
 
for I:=1 to n do{идем по массиву и проверяем его элементы на четность}
   if mas[i] div 2 = 1  then inc(kol);
 
writeln('kol=',kol);
readln;
end.

возможны какие то ошибки и есть - паскаля нет под рукой.

@саният 1 / 1 / 0 Регистрация: 24.05.2011 Сообщений: 10
		1
	дан массив целых чисел. Найти количество нечетных элементов массива 30.05.2011, 17:39. Показов 9134. Ответов 1 Метки нет (Все метки) я плохо разбираюсь в массивах. Если можно то напишите пож программу как можно в развернутом виде. Заранее спасибо! 0

Опции темы