Program cgt;
var a:array[1..100,1..100]of integer;
max,min,s,i,j,n,x1,y1,x2,y2:integer;
begin
read(N);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do
begin
for j:=1 to n do
begin
if(i=j)and(a[i,j]>=max)then begin
max:=a[i,j];
x1:=i;
y1:=j;
end;
if(i=j)and(a[i,j]<=min)then begin
min:=a[i,j];
x2:=i;
y2:=j;
end;
end;
end;
s:=x1+x2+y1+y2;
writeln(s);
<span>end.</span>
Var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
while i < 7 do
begin
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
end;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
repeat
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
until i >= 7;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
n := n + (n + 1) mod 2;
s := 0;
for i := 1 to 7 do
begin
s := s + n;
writeln(n);
n := n + 2;
end;
writeln(s);
end.
Ответ уже дан. Удаляйте вопрос, он повторяется.