Предмет: Информатика,
автор: Medic2820
Программа для нахождения количество положительных нечётных элементов целочисленного массива B[1..50]. Помогите пожалуйста.
Ответы
Автор ответа:
0
PascalABC.NET
Ответ:
- begin
- var a:= ArrRandom(5,-100,100);
- a.Println;
- a.Count(x->(x.IsOdd)and(x>0)).Print
- end.
Объяснение:
Для нахождения количество положительных нечётных элементов одномерного массива: [массив].Count(x->(x.IsOdd)and(x>0))
И не говорите, что такого ещё не проходили - сами написали "Студенческий".
Пример:
Приложения:

Medic2820:
Спасибо
for i:=1 to 50 do begin if (B[i] mod 2=1) and (B[i]>0) then s:=s+1;
Ну или foreach:
foreach i in B do if (B[i] mod 2=1) and (B[i]>0) then s:=s+1;
Похожие вопросы
Предмет: Русский язык,
автор: polyaaaaaa
Предмет: Русский язык,
автор: berdenovaa
Предмет: Українська мова,
автор: gark199
Предмет: Литература,
автор: слава459
Предмет: Литература,
автор: ксю728