Question

Дан массив 7 на 7 Все эл-ты кратные 4 заменить на ноль. Вывести массив. ПОЖАЛУЙСТА СРОЧНО!!!!!! Pascal

Answer 1

Ответ:

var a:array[1..7,1..7] of integer;

   i,j: integer;

begin

   for i:=1 to 7 do begin

       for j:=1 to 7 do begin

           a[i][j] := random(100);

           write(a[i][j]:3, ' ');

       end;

       writeln();

   end;

   writeln();

   for i:=1 to 7 do begin

       for j:=1 to 7 do begin

           if a[i][j] mod 4 = 0 then a[i][j] := 0;

           write(a[i][j]:3, ' ');

       end;

       writeln();

   end;

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который заменяет все элементы в массиве 7x7, кратные 4, на нули и выводит измененный массив:

pascalCopy code
program ReplaceWithZeros;

const
  N = 7;
  
var
  arr: array[1..N, 1..N] of Integer;
  i, j: Integer;

begin
  // Заполнение массива случайными значениями
  Randomize;
  for i := 1 to N do
    for j := 1 to N do
      arr[i, j] := Random(20); // Здесь 20 - максимальное случайное значение

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(arr[i, j]:3, ' ');
    writeln;
  end;

  // Замена элементов, кратных 4, на нули
  for i := 1 to N do
    for j := 1 to N do
      if (arr[i, j] mod 4 = 0) then
        arr[i, j] := 0;

  // Вывод измененного массива
  writeln('Массив после замены:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(arr[i, j]:3, ' ');
    writeln;
  end;
end.

Этот код создает массив 7x7, заполняет его случайными значениями (в диапазоне от 0 до 19) и затем заменяет все элементы, кратные 4, на нули.