Question

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

Answer 1

Ответ:

• var
• i, s: integer;
• B: array [1..50] of integer;
• begin
• for i := 1 to 50 do B[i] := random(-100, 100);  //Заполняем массив случайными числами.
• writeln(B);//Выводим массив на экран (для проверки).
• for i := 1 to 50 do  //Пробегаемся по каждому элементы массива и...
• if (B[i] mod 2 = 1) and (B[i] > 0) then s := s + 1;  // увеличиваем s, если элемент нечётный и >0.
• writeln(s);  //Выводим s (сумму) на экран.
• end.

или так:

                                     PascalABC.NET                                      

Ответ:

• begin
• var a:= ArrRandom(5,-100,100);
• a.Println;
• a.Count(x->(x.IsOdd)and(x>0)).Print
• end.

Примеры работ: