Информатика 10 класс 1) написать функцию ,которая выдаёт истину ,если число четное и если ложь - нечетное. 2) написать процедуру ,которая заменяет все четные числа в массиве 0 и выводит результат на экран.

1)function chet(a:longint):boolean;
begin chet:=(a mod 2)=0; end;
2) procedure z(var a:array of longint;length:longint);
var i:longint;
begin
for i:=1 to length do
begin
if not odd(a[i]) then a[i]:=0;
write(a[i],' ');
end;
end;