В двумерном массиве 10х10, содержащем числа в интервале от 50 до 100 найдите сумму элементов стоящих на главной диагонале. Вывести на печать исходную матрице в табличном виде и значения матрицы и полученную сумму Pascal
В двумерном массиве 10х10, содержащем числа в интервале от 50 до 100 найдите сумму элементов стоящих на главной диагонале. Вывести на печать исходную матрице в табличном виде и значения матрицы и полученную сумму
Pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы