Программа для нахождения количество положительных нечётных элементов целочисленного массива 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 then s:=s+1
Это считает количество только нечётных элементов массива
Да и так тогда нужно: "B[i] mod 2 = 1"
а не ":="
А для Вашей задачи, если принципиален for:
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;
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;
Благодарю
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
9 лет назад