Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях

@belanovskii · Регистрация: 22.10.2013

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях

сделать нуужно именно через двумерный массив!)

@ildwine · 16.11.2013, 15:24

Pascal

const
  n = 6;
var
  a : array[1..n, 1..n] of integer;
  j, i, sg, sp : integer;
begin
  randomize;
  sg := 0; sp := 0;
  for i := 1 to n do 
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(10) + 1;
      write(a[i,j]:4);
      if i = j then sg := sg + a[i,j];
      if i + j = n + 1 then sp := sp + a[i,j]
    end;
    writeln
  end;
  writeln('сумма на главной диагонали: ', sg);
  writeln('сумма на побочной диагонали: ', sp);
  readln
end.

@belanovskii 11 / 2 / 0 Регистрация: 22.10.2013 Сообщений: 61
		1
	Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях 16.11.2013, 14:57. Показов 1347. Ответов 1 Метки нет (Все метки) Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях сделать нуужно именно через двумерный массив!) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях

Решение