Делфи Помощь с написанием кода Дан массив из 10 элементов. Найти
а) количество элементов, величины которых являются четными числами
б) количество элементов, величины которых являются неотрицательными.

Предыдущий
вопрос Следующий
вопрос

Пример кода на Delphi:

program FindElements
va
arr: array[1..10] of Integer; // объявляем массив из 10 элементо
i, countEven, countNonNegative: Integer
begi
// заполняем массив произвольными значениям
arr[1] := 5
arr[2] := -2
arr[3] := 8
arr[4] := -4
arr[5] := 0
arr[6] := 3
arr[7] := 10
arr[8] := -7
arr[9] := 6
arr[10] := -1
countEven := 0
countNonNegative := 0
for i := 1 to 10 d
begi
// проверяем на четност
if arr[i] mod 2 = 0 the
Inc(countEven)
// проверяем на неотрицательност
if arr[i] >= 0 the
Inc(countNonNegative)
end
Writeln('Количество четных элементов: ', countEven)
Writeln('Количество неотрицательных элементов: ', countNonNegative)
Readln
end.

Этот код на Delphi сначала объявляет массив arr из 10 элементов и заполняет его произвольными значениями. Затем с помощью цикла for проходит по всем элементам массива и проверяет их на четность и неотрицательность. После этого выводит количество четных элементов и количество неотрицательных элементов.