Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Как найти количество и сумму всех честных чисел положительных чисел числового ряда 2,4,3,0,2,5-2,5.

Ответ оставил Гость

{Как найти количество и сумму всех четных чисел, положительных чисел числового ряда 2,4,3,0,2,5,-2,5}const A:Array[1..8] of integer=(2,4,3,0,2,5,-2,5);var  i,q,r,n,m:integer;beginwrite(Числовой ряд );for i:=1 to 8 do beginwrite(A[i]:4);if A[i] > 0 then m:= m + 1;if (A[i] mod 2)= 0 then n:= n + 1;if ((A[i] mod 2)= 0)and (A[i] > 0) then r:= r + 1;end;writeln;writeln(четных чисел , n);writeln(положительных чисел , m);writeln(положительных и четных чисел ,r);end.