Основы программирования на языке Turbo Pascal. Беляева И.В. - 76 стр.

UptoLike

Составители:

Рубрика:

Первый вариант – сканировать все элементы, но обнулять только те,

которые стоят выше главной диагонали:

Фрагмент программы:

…

for i := 1 to n do

for j := 1 to n do

if i < j then {Условие того, что элемент стоит

выше главной диагонали}

a[i,j] := 0;

Второй вариант – сканировать только те элементы, которые стоят

выше главной диагонали:

Фрагмент программы:

…

for i := 1 to n - 1 do

for j := i + 1 to n do

a[i,j] := 0;

…

Задача 23: Подсчитать сумму элементов, стоящих на вспомогательной

диагонали.

Фрагмент программы:

…

s := 0;

for i := 1 to n do

s := s + a[ i, n - i + 1];

…