Информатика 10 класс

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

2) Написать процедуру, которая заменяет все четные числа в массиве 0 и выводит результат на экран.

Question

Информатика

Петряня

17 сентября, 12:15

Информатика 10 класс

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

2) Написать процедуру, которая заменяет все четные числа в массиве 0 и выводит результат на экран.

+5

Ответы (1)

Знаете ответ на вопрос?

Цвета · 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;