Предмет:
ИнформатикаАвтор:
stevehorn1)
var a:array[1..100,1..100] of integer;
i,j,sum,x,n:integer;
begin
readln(x);
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if (i=j) and (i=x) then sum:=sum+a[i,j];
writeln(sum);
end.
Автор:
big nastyДобавить свой ответ
Предмет:
МатематикаАвтор:
geovanniОтветов:
Смотреть
Предмет:
Английский языкАвтор:
jayvonrollinsОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
gavingowdОтветов:
Смотреть
Предмет:
МатематикаАвтор:
anneliese8zqtОтветов:
Смотреть