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

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

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

program FindElements;
var
arr: array[1..10] of Integer; // объявляем массив из 10 элементов
i, countEven, countNonNegative: Integer;
begin
// заполняем массив произвольными значениями
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 do
begin
// проверяем на четность
if arr[i] mod 2 = 0 then
Inc(countEven);
// проверяем на неотрицательность
if arr[i] >= 0 then
Inc(countNonNegative);
end;
Writeln('Количество четных элементов: ', countEven);
Writeln('Количество неотрицательных элементов: ', countNonNegative);
Readln;
end.

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