Найти сумму указанных элементов матрицы - Turbo Pascal

Формулировка задачи:

Для квадратного массива размера nxn n-нечетное, найти сумму указанных элементов, указаные элементы заменить на 0. Вывести новый массив

Код к задаче: «Найти сумму указанных элементов матрицы - Turbo Pascal»

textual
program pr1;
 
uses
  crt;
 
var
  a: array [1..100, 1..100] of integer;
  n, i, j, sum: integer;
 
begin
  clrscr;
  randomize;
  writeln('n=');
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:8);
    end;
    writeln;
  end;
 
  sum:=0;
  for i:=1 to n div 2 do
  begin
    sum:=sum+a[i,i]; // диагональные элементы
    a[i,i]:=0;
  end;
  
  for i:=n div 2 + 1 to n do  // остальные закрашенные
    for j:=n div 2 + 1 to n do
    begin
      sum:=sum+a[i,j];
      a[i,j]:=0;
    end;
  
 
  writeln('sum=', sum);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:4);
    end;
    writeln;
  end;
  readln;
end.

13   голосов, оценка 4.308 из 5


СОХРАНИТЬ ССЫЛКУ