Склавиатуры ввести натуральное число n и вещественные числа х1, хi,уi,. рассматривая пары хi, и уi, как координаты точек на плоскости, определить радиус наименьшего круга (с центром в начале координат), внутрь которого все эти точки. вычисление расстояния между двумя точками реализовать в виде функции. результат вывести в файл оut.txt.
переделайте с паскаля на c(си)
uses crt;
var
i,n: integer;
x,y,min,t: real;
begin
clrscr;
write('введите n = ');
readln(n);
min: =0;
for i: =1 to n do
begin
write ('введите x[',i,'] = ');
readln(x);
write ('введите y[',i,'] = ');
readln(y);
t: =sqrt(x*x+y*y);
if t> min thenmin: =t;
end;
write('радиус = ',min: 0: 2);
readkey;
end.
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9
n = int(input("Введите сколько чисел вы хотите ввести: "))
a = []
for x in range(1, n + 1):
a.append(int(input("Введите число " + str(x) + ": ")))
s = 0
for x in range(0, len(a)):
s += a[x]
print("Среднее арифметическое всех чисел:", s/len(a))
2.print("Числа, которые задумал Ипполит: ")
for x in range(100, 1000):
if x % 15 == 11 and x % 11 == 9:
print(x)
3.n = int(input("Введите сколько чисел вы хотите ввести: "))
a = []
for x in range(1, n + 1):
a.append(int(input("Введите число " + str(x) + ": ")))
c = []
n = []
p = 0
for x in range(0, len(a)):
if a[x] % 2 == 0:
c.append(a[x])
elif a[x] % 2 != 0:
n.append(a[x])
if a[x] > 0:
p += 1
u = 1
s = 0
for x in range(0, len(c)):
u *= a[x]
for x in range(0, len(n)):
s += a[x]
print("Произведение четных чисел:", u)
print("Сумма нечетных чисел:", s)
print("Количество положительных чисел:", p)