Составить алгоритм вычисления длины окружности, если
известен ее радиус. в программе паскаль авс

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.

В отличии от языка Pascal в С++ нет логического типа - вместо него используется 0 в качестве Лжи и отличное от нуля число в качестве Истины. Составными частями логических выражений могут быть: числа (0 или неравные ему), отношения.

Например, 1) Y = 0; 2) Z = 1; 3) LogPer = A > B; 4) Log1 = (A = = B) && (C < = D).

В языке С++ операции отношения определены для целых и вещественных типов. Операции отношения могут быть выполнены также над символьными переменными. Сравнение идет по индексам в соответствии с лексикографической упорядоченностью в таблице кодов ASCII. Эта упорядоченность предполагает, что "1"<"2", "a"<"b", "B"<"C" и т.д.

Объяснение: