Программа: Сумма элементов по диагонали в двумерном массиве

Задача: Заполнить двумерный массив размером 16x16 любыми числами. Найти сумму всех элементов по диагонали. Вывести результат.

PROGRAM summapodiag;
	var i,k,s :integer;
		M	  :array[1..16,1..16] of integer;
BEGIN
	Randomize;
	s:=0;
	for i:=1 to 16 do
	  begin
		for k:=1 to 16 do
		  begin
			M[i,k]:=random(10);
			Write(M[i,k],' ');
		  end;
		Writeln
	  end;

	for k:=1 to 10 do
	s:=M[k,k]+s;
  
	WriteLn('Сумма диагонали равна: ',s);
END.

Просмотрело: 2549

Возможно, Вы искали: