Консультация № 135291
04.05.2008, 15:20
0.00 руб.
0 1 1
Здравствуйте, Уважаемые эксперты помогите, пожалуйста:

1) В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные - в конец с сохранением порядка следования. Дополнительный массив заводить не разрешается.

2) В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке : х1,у1,х2,у2,х3,у3...,хn,yn.
Опредилите минимальный радиус круга с центром в начале координат,который содержит все точки.

Обсуждение

Неизвестный
05.05.2008, 09:01
общий
это ответ
Здравствуйте, Иванова Екатерина Сергеевна!

Решение второй задачи в приложении.

Приложение:
Program Pr135291_2; Uses CRT; Const N = 4; Var Arr : Array[1..2*N] of Real; i : Integer; R, x : Real;Begin ClrScr; R := 0; WriteLn(‘Введите ‘, N, ‘ пар чисел:‘); for i := 1 to N do begin Write(‘#‘, i, ‘: ‘); ReadLn(Arr[2*i - 1], Arr[2*i]); x := Sqrt(SQR(Arr[2*i - 1]) + SQR(Arr[2*i])); if x > R then R := x; end; WriteLn(‘Радиус минимального круга: ‘, R); ReadLn;End.
Форма ответа