Элементы главной диагонали матрицы переписать в массив

@datafile4 · Регистрация: 26.02.2013

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

Дан двумерный массив.Элементы главной диагонали перебросить в массив B ,элементы побочной-в массив C.Найти сумму элементов побочной диагонали.

@ermolay · 12.07.2013, 13:39

Pascal

var
  a: array[1..20,1..20] of integer;
  b,c: array[1..20] of integer;
  n,i,j,s: integer;
begin
  randomize;
  write('VVedite N: ');
  readln(n);
  s:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      if i=j then b[i]:=a[i,j];
      if i+j=n+1 then
      begin
        c[i]:=a[i,n-i+1];
        s:=s+c[i];
      end;
    end;
    writeln;
  end;
  writeln('Massiv B:');
  for i:=1 to n do write(b[i]:4);
  writeln;
  writeln('Massiv C:');
  for i:=1 to n do write(c[i]:4);
  writeln;
  writeln('S = ',s);
  readln;
end.

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
		1
	Элементы главной диагонали матрицы переписать в массив 12.07.2013, 13:32. Показов 2058. Ответов 1 Метки нет (Все метки) Дан двумерный массив.Элементы главной диагонали перебросить в массив B ,элементы побочной-в массив C.Найти сумму элементов побочной диагонали. 0

	12.07.2013, 13:39

Элементы главной диагонали матрицы переписать в массив

Решение