В двумерном массиве 10х10, содержащем числа в интервале от 50 до 100 найдите сумму...

Question

В двумерном массиве 10х10, содержащем числа в интервале от 50 до 100 найдите сумму элементов стоящих на главной диагонале. Вывести на печать исходную матрице в табличном виде и значения матрицы и полученную сумму
Pascal

Answer 1

Program L;
uses crt;
var i,j,s:integer; a:array[1..10,1..10] of integer;
 begins:=0;
writeln('введите исходный массив');
for i:=1 to 10 do 
   for j:=1 to 10 do  
 begin
   readln(a[i,j]);   {ввод эл массива,  всего их 100 штук} 
   if i=j then s:=s+a[i,j]; { вычисление  суммы} 
 end;
write('s=',s);  {печать суммы}
readln
end.