Вдвумерном массиве 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.
На улице стоят пять домов.Англичанин живёт в красном доме.У испанца есть собака.В зелёном доме пьют кофе.Украинец пьёт чай.Зелёный дом стоит сразу справа от белого дома.Тот, кто курит Old Gold, разводит улиток.В жёлтом доме курят Kool.В центральном доме пьют молоко.Норвежец живёт в первом доме.Сосед того, кто курит Chesterfield, держит лису.В доме по соседству с тем, в котором держат лошадь, курят Kool.Тот, кто курит Lucky Strike, пьёт апельсиновый сок.Японец курит Parliament.Норвежец живёт рядом с синим домом. Кто пьёт воду? Кто держит зебру? В целях ясности следует добавить, что каждый из пяти домов окрашен в свой цвет, а их жители — разных национальностей, владеют разными животными, пьют разные напитки и курят разные марки американских сигарет. Ещё одно замечание: в утверждении 6 справа означает справа относительно вас.
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.