Склавиатуры ввести натуральное число 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.
const n=19;
var i, l: integer;
Dat: array [1..n] of integer;
New: array [1..n] of integer;
begin
write('Dat: ');
for i:=1 to n do begin
Dat[i]:=random(30)-15;
write(Dat[i],' ');
end;
writeln();
write('New: ');
l:=0;
for i:=1 to n do if (Dat[i]>=0) and (Dat[i] mod 8<>0) then begin
l:=l+1;
New[l]:=Dat[i];
end;
for i:=1 to l do write(New[i],' ');
end.