Найти сумму элементов левого треугольника матрицы - Pascal ABC

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

Квадратная матрица n x n, Найти сумму элементов левого треуголника(т.е 1 столбец и 2 число 2-ого столбца)

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

textual
uses
  crt;
 
const
  nmax = 20;
 
var
  a: array[1..nmax, 1..nmax] of byte;
  n, i, j, k, p: byte;
  sum: integer;
 
begin
  textbackground(0);
  textcolor(15);
  clrscr;
  randomize;
  repeat
    write('Введите размерность массива, ', nmax, ' n = ');
    readln(n);
  until n in [1..nmax];
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(100);
  writeln('?б室**п ¬*ваЁж*:');
  sum := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if ((j <= i) and (j <= n - i + 1)) {or ((j >= n - i + 1) and (j >= i))} then 
      begin
        textcolor(10);
        sum := sum + a[i, j];
      end
      else 
        textcolor(15);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  textcolor(15);
  writeln('Sum = ', sum);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ