Вопрос по информатике:
В двумерном массиве 10х10, содержащем числа в интервале от 50 до 100 найдите сумму элементов стоящих на главной диагонале. Вывести на печать исходную матрице в табличном виде и значения матрицы и полученную сумму
Pascal
- 18.07.2018 06:24
- Информатика
- remove_red_eye 16029
- thumb_up 22
Ответы и объяснения 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.
- 19.07.2018 06:23
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.