Dim a(5,5)
print "введите элементы матрицы:"
for i = 1 to 5
for j = 1 to 5
input a(i,j)
next j
next i
sg=0
sp=0
for i = 1 to 5
sg = sg + a(i,i)
sp = sp +a(i, 5-i+1)
next i
print "сумма элементов главной диагонали ="; sg
print "сумма элементов побочной диагонали ="; sр
Если правильно понял задание. На будущее, желательно указывать в чем работаете.
а) 5
б) 4
в) 40
г) 1
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;
Что решить???? Уточни пожалуйста????????