Question

Добрый вечер!
ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ.
В двухмерном массиве заменить на ноль элементы, чья сумма индексов равна заданному числу.

Answer 1

паскаль абс...................

9fbeaf057b5bc5a78f57c3511dee0305.pas

Answer 2

var ar:array[1..10,1..10] of integer;
i,j:integer;
begin;
randomize;
writeln('First matrix:');
for i:=1 to 10 do
  begin;
    writeln;
      for j:=1 to 10 do
      begin;
        ar[i,j]:=random(2,10);
        write(ar[i,j]:4);
      end;
   end;
writeln;
writeln('Final array:');
for i:=1 to 10 do
  begin;
    writeln;
     for j:=1 to 10 do
      begin;
         if ar[i,j]=i+j then ar[i,j]:=0;
         write(ar[i,j]:4);
      end;
  end;
end.

9fbeaf057b5bc5a78f57c3511dee0305.pas