Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.
Если это такая проблема скопировать код и выполнить его, то держите
Вывод
sr=4.5
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20
дано:
Nсотр.=714
Nраб.=698
Vвремя=3 байта
решение:
Vобщ. × Vсообщ. × Nсообщ.
Nсообщ.= 698×2= 1396
Vсообщ.=Vкода + 3 байта
Vкода-?
M= 714=2i
1024=2i=210