Найти сумму элементов, расположенных выше побочной диагонали

@f_c_s_d_1_9_3_6 · Регистрация: 08.12.2014

Студворк — интернет-сервис помощи студентам

Дана матрица Z[N,M],N=7,M=7.Заполнить матрицу случайными числами в диапазоне от 2 до 23.Найти сумму элементов, расположенных выше побочной диагонали.Осуществить вывод данных на экран и в файл.

@ZX Spectrum-128 · 22.12.2014, 15:17

Pascal

const
  nmax=20;
var
  a:array[1..nmax,1..nmax] of integer;
  n,i,j:integer;
  sum:integer;
  f:text; 
begin
  randomize;
  n:=7;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(21)+2;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  sum:=0;
  for i:=1 to n-1 do
    for j:=1 to n-i do
      sum:=sum+a[i,j];
  assign(f,'output.txt');
  rewrite(f);
  writeln('Сумма выше побочной: ',sum);
  writeln(f,'Сумма выше побочной: ',sum);
  close(f);
  readln;
end.

@f_c_s_d_1_9_3_6 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 9
		1
	Найти сумму элементов, расположенных выше побочной диагонали 22.12.2014, 01:29. Показов 5072. Ответов 1 Метки нет (Все метки) Дана матрица Z[N,M],N=7,M=7.Заполнить матрицу случайными числами в диапазоне от 2 до 23.Найти сумму элементов, расположенных выше побочной диагонали.Осуществить вывод данных на экран и в файл. 0

Опции темы

Найти сумму элементов, расположенных выше побочной диагонали

Решение