Zudina / KR_pascal / 3Arr_vv2

{‡ ¤ ­ЁҐ. ‡ Ї®«­Ёвм Єў ¤а в­го ¬ ваЁжг ­Ё¦Ґ Ј« ў­®©
¤Ё Ј®­ «Ё б«гз ©­л¬Ё зЁб« ¬Ё Ё§ Їа®¬Ґ¦гвЄ  [3;15]
Ќ ©вЁ б।­оо б㬬г н«Ґ¬Ґ­в®ў Ў®«миЁе 5.}
Program m1;
uses crt;
const
n=6;m=6;
var
k,i,j:byte;
c:array[1..m,1..n] of integer;
S: integer;
BEGIN
clrscr;
for i:=1 to m do
for j:=1 to n do
begin
if i<j then c[i,j]:=0 else c[i,j]:=1
end;
k:=0; S:=0;
for i:=1 to m do
for j:=1 to n do
if c[i,j] mod 2=1 then begin k:=k+1; S:=S+c[i,j]; end;
S:=S div k;
writeln('S=',S);
readln;
END.