Годинник має цікаву особливість: він відбиває кількість годин щогодини і ще одним ударом кожні півгодини. скільки ударів за добу зробить цей годинник?

2*(1+2+3+4+5+6+7+8+9+10+11+12)=156; 2*12+156=180

Const   n=10; type   ta=array[1..n] of integer; var ar: ta; k,s: integer; procedure reading(var ar: ta); var i: integer; begin; for i: =1 to n do readln(ar[i]); end; procedure sum(ar: ta; var k: integer); var i: integer; begin; for i: =1 to n do if ar[i] mod 2=0 then k: =k+ar[i]; end; function otr(ar: ta): integer; var i,s: integer; begin; for i: =1 to n do if ar[i]< 0 then inc(s); otr: =s; end; begin; reading(ar); sum(ar,k); s: =otr(ar); writeln('sum: ',k); write('otr: ',s); end.

Var n,m: integer; b: boolean; function fminmax(k: integer; d: boolean): integer; var a: array[1..30] of integer; j,max,min: integer; begin for j: = 1 to 30 do begin a[j]: = random(100)-50; write(a[j]: 4); end; max: = -100; min: =100; if b = true then  for j: = 1 to k do begin if max < a[j] then max : = a[j]; fminmax: =max; end else for j: = n to 30 do begin if min > a[j] then min : = a[j]; fminmax: =min; end; end; begin write ('введите число < 25'); read(n); write ('определять max(true -да, false- нет)'); read(b); m: = fminmax(n,b); writeln; if b = true then write('max = ',m) else write('min = ',m); end.