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.