Question

Напишите в паскале программу дан двумерный массив из n элементов к-это количество элементов двумерного массива которые без остатка делятся на 5 программа заменяет элементы равные к на 0 а если нет таких элементов то программа заменяет все элементы на 1

Answer 1

const n=5;

var

 a:array [1..n,1..n] of integer;

 i,j,k:integer;

begin

 k:=0;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(151)-50;

         write(a[i,j]:4);

         if (a[i,j] mod 5 =0) then  

             inc(k);

       end;

     writeln;

   end;

   writeln;

     if k<>0 then

       begin

         for i:=1 to n do

           begin

             for j:=1 to n do

               begin

                 if a[i,j]=k then a[i,j]:=0;

                 write(a[i,j]:4);

               end;

             writeln;

           end;

         writeln('K= ',k);

       end

         else  

           begin

             for i:=1 to n do

               begin

                 for j:=1 to n do

                   begin

                     a[i,j]:=0;

                     write(a[i,j]:4);

                   end;

                 writeln;

               end;

              writeln('K= 0');  

           end;

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая выполняет описанные вами действия:

pascalCopy code
program TwoDimensionalArray;
const
  N = 3; // Замените значение на желаемое количество элементов
  K = 5; // Замените значение на желаемое делитель

var
  arr: array [1..N, 1..N] of Integer;
  i, j, count: Integer;
  found: Boolean;

begin
  count := 0;
  found := False;

  // Заполнение массива и поиск элементов, делящихся на K без остатка
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write('Введите элемент arr[', i, '][', j, ']: ');
      ReadLn(arr[i, j]);
      if (arr[i, j] mod K = 0) then
      begin
        count := count + 1;
        found := True;
      end;
    end;
  end;

  // Замена элементов
  if found then
  begin
    for i := 1 to N do
    begin
      for j := 1 to N do
      begin
        if (arr[i, j] = K) then
          arr[i, j] := 0;
      end;
    end;
  end
  else
  begin
    for i := 1 to N do
    begin
      for j := 1 to N do
      begin
        arr[i, j] := 1;
      end;
    end;
  end;

  // Вывод массива после замены элементов
  WriteLn('Массив после замены:');
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write(arr[i, j], ' ');
    end;
    WriteLn;
  end;

  ReadLn;
end.

Программа предполагает, что размер двумерного массива равен N, и вы можете изменить его значение, чтобы подогнать его под свои нужды. Также, вам необходимо заменить значение K на желаемый делитель.

Программа запрашивает у пользователя ввод элементов массива и проверяет, сколько из них без остатка делится на K. Если найдены такие элементы, они заменяются на 0. В противном случае все элементы массива заменяются на 1. Затем программа выводит измененный массив на экран.