Question

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

Answer 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.