Определить среди 3 введенных чисел(a, b, c) количество отрицательных и положительных. если больше положительных, то найти минимум из этих 3 чисел, а иначе найти максимумнужно нарисовать блок схему и написать программу в паскале)

Var a,b,c,m,k: integer; begin   readln(a,b,c); if a> 0 then inc(k) else dec(k); if b> 0 then inc(k) else dec(k); if c> 0 then inc(k) else dec(k); if k> 0 then begin   if a< b then m: =a else m: =b;   if m> c then m: =c; end else begin        if a> b then m: =a else m: =b;       if m< c then m: =c; end; writeln(m); end.

1способ  var  a, b: integer; begin  write('введите a: ');     readln(a);     write('введите b: ');   readln(b);   var x : = range(a, b);   writeln('последовательность: ');   x.println;   writeln('ср. ариф. неотриц чисел: ');   writeln(x.where(x -> x > = 0).average); end. 2 способ var   a, b,i,s: integer;   k: real; begin   write('введите a: ');     readln(a);     write('введите b: ');   readln(b);   writeln('последовательность: ');   for i: =a to b do    write(i,' '); writeln(); s: =0; for i: =a to b do      if i> =0 then begin    s: =s+i;     k: =k+1; end; writeln('ср. ариф. неотриц чисел: ');   write(s/k); end.

Всего 1508 цифр. начинаем с 4. тогда будем считать количество однозначных, двухзначных и трёхзначных номеров у  страниц. 5, 6, 7, 8, 9 - всего 5, тогда 1508 - 5 = 1503 стр. не указал 4, так как на ней начинается первая глава. её и добавим с главами в конце. теперь ряд 10, 11, 12 .. 97, 98, 99, в котором 90 двухзначных чисел, тогда 1503 - 90*2 = 1503 - 180 = 1323. так как в ряду 100..999 много чисел, то просто разделим 1323 на 3 и получим 441. теперь считаем 441(трёхзн) + 90(двухзн) + 5(однозн)  + 3(нач) + 1(кон) + 6(главы) = 546 страница в книге.