1) Напишите программу в Паскале Заполнить массив случайными целыми числами. Заменить элементы массива, кратные K нулями, остальные 1 (К ввести с клавиатуры)

Program mass;

const N=10;

var a:array [1 ... N] of integer; i, k: integer;

begin

randomize;

for i:=1 to N do

begin

a[i]: = random (1000);

write (a[i],' ');

end;

writeln;

writeln ('Введите целое число k');

readln (k);

for i:=1 to N do

begin

if a[i] mod k = 0 then a[i]:=0 else a[i]:=1;

write (a[i], ' ');

end;

end.