Untitled
var A: array[1..10] of Integer; i, evenCount, oddCount: Integer; begin // Заполнение массива A элементами evenCount := 0; oddCount := 0; for i := 1 to 10 do begin if A[i] mod 2 = 0 then evenCount := evenCount + 1 else oddCount := oddCount + 1; end; writeln('Количество чётных элементов:', evenCount); writeln('Количество нечётных элементов:', oddCount); end. Вторая часть: var A: array[1..10] of Integer; i, evenPositiveCount: Integer; begin // Заполнение массива A элементами evenPositiveCount := 0; for i := 1 to 10 do begin if (A[i] > 0) and (A[i] mod 2 = 0) then evenPositiveCount := evenPositiveCount + 1; end; writeln('Количество чётных положительных элементов:', evenPositiveCount); end.
Leave a Comment