Радиус OB окружности с центром в точке O пересекает хороду AB в точке D и перпендикулярен ей, найдите длину хорды AC, если BD =1 см, а радиус окружности равен 5 см

Паскаль.

 

Немного не понятно: от 1 до 10  это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv:integer;

begin

for i:=1 to 10 do begin

   Writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

For i:=1 to 10 do begin

                              if a[i] mod 2=0 then summa:=summa+a[i] else

                                                       proizv:=proizv*a[i];

                         end;

Writeln(summa,'   ',proizv); readln;

end.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var m:=ReadInteger('число строк ');
  var n:=ReadInteger('число столбцов ');
  var a:array[,] of real; SetLength(a,m,n);
  Randomize;
  var p:=1.0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      a[i,j]:=89*Random+10;
      Write(a[i,j]:0:5,' ');
      if j mod 2=0 then p*=a[i,j]
      end;
    Writeln
    end;
  Writeln(p)
end.

Тестовое решение:
число строк  4
число столбцов  3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9