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

Question

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

Answer 1

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;