Предмет: Информатика, автор: sanxerar

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

Ответы

Автор ответа: ludmilagena
0
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. 
Похожие вопросы
Предмет: Русский язык, автор: bolysbekdayana
Долго стою на опушке. рядом с елью. Трогаю ее блестящие ветки которые
слідгка влажные от ночного тумана. Смотрю как просыпаеться небо!
Солнце лениво ощупывает макушки берез светится в сучьях листвениц
что высоко стоят над лесом. Паутина серебрить.ся узорным патном.
(Не) желая разрушать волшебное творение обхожу его стороной но все
(таки) путинки садятся на лицо прелипают к одежде. Надо мне выбраться к
вырубку возле опушкі березовой рощ. Там я смотрю как живет лес пишу свои
На светло (голубом) сентябрьском небе березы пл£няют светлой и
солнечной окраской вершин.
Даже (от) сюда видно как сухо тепло в березовой роще словно горит она
спЎкойным жZлтым пламенем и жаль что скоро под студен.Jыми ветрами
сникнут потухнут кастры берез угаснт игра теплых тонов. Ведь облетев березы
растворяються в лесу будто говорят Вот, мы все отдали.
заметки.
приведите примеры олицетворение