Предмет: Информатика, автор: Medic2820

Программа для нахождения количество положительных нечётных элементов целочисленного массива B[1..50]. Помогите пожалуйста.

Ответы

Автор ответа: LRSM
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: Спасибо
Medic2820: а вот это правильно написано for i:=1 to 50 do begin if B[i] mod 2:=1 then s:=s+1
LRSM: Это считает количество только нечётных элементов массива
LRSM: Да и так тогда нужно: "B[i] mod 2 = 1"
LRSM: а не ":="
LRSM: А для Вашей задачи, если принципиален 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;
Medic2820: Благодарю
Похожие вопросы
Предмет: Русский язык, автор: polyaaaaaa
Предмет: Русский язык, автор: berdenovaa
Предмет: Литература, автор: ксю728