Определить имеется ли среди чисел а, в, с хотя бы одно четное

Имеется add abb and и abxde

Какое из этих чисел делится на 2, то и четное

Const   n = 10; var   i, k, max: integer;   a: array[1..n] of integer; begin   writeln('исходные данные');   randomize;   for i : = 1 to n do   begin       k : = random(100) - 50;       a[i] : = k;       write(k: 4)   end;   writeln;   max : = -32768; //меньше не бывает   for i : = 1 to n do       if max < a[i] then max : = a[i];   writeln('максимальное из чисел равно ', max) end. тестовый пример: исходные данные   39 -42  -3    3 -37 -32  25  43  24 -17 максимальное из чисел равно 43

Var   i, j: integer;   arr: array of real;   s: real; begin   readln(i);   setlength(arr, i);       for i : = 0 to length(arr) - 1 do   begin     arr[i] : = random(5) + 6;     write(arr[i], ' ');   end;       writeln();       for i : = 0 to length(arr) - 1 do   begin     s : = 0;     write('a[0]..a[', i, '] => ');     for j : = 0 to i do       s : = s + arr[j];     writeln(s);   end;       writeln('===============================');       j : = 0;       for i : = 0 to length(arr) - 1 do   begin     if (arr[i] > 7) then     begin       arr[i] : = 7;       j : = j + 1;     end;     write(arr[i], ' ');   end;   writeln();   writeln(j); end.