1) Напишите программу в Паскале

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

var

mas: array[-1000 ... 1000] of integer;

i, k, n: integer;

begin

{ввод количества элементов массива}

readln (n) ;

{ввод числа к}

readln (k) ;

{ввод массива и его вывод на экран}

randomize;

for i : = 1 to n do

begin

mas[i] : = 50 - random (100) - 1;

write (mas[i]:4) ;

if (i mod 10 = 0) then writeln;

end;

{замена элементов массива}

writeln;

for i:=1 to n do begin

if (mas[i] mod k=0) then mas[i]:=0

else

mas[i]:=1;

write (mas[i]:4) ;

if (i mod 10 = 0) then writeln;

end;

end.