RR
Rif Rif
Массив
Код Pascal1
2
3
4
5
6
7
8
9
10
11
12
var i,j,s,k:integer;
a: array[1..5, 1..5] of integer;
begin
s:=0;
k:=1;
for i:=1 to 5 do
For j:= 1 to 5 do
a[i][j]:= i+j-k;
for i:=1 to 5 do
for j:=5-i+1 to 5 do s:=s+a[i][j];
writeln(s);
end.
Объясните пожалуйста как считать (вручную) эту часть: Код Pascal1
2
for i:=1 to 5 do
for j:=5-i+1 to 5 do s:=s+a[i][j];