Задача на питоне . Даны два вектора VEC_1 = [-0.25560104, 0.06393334, -0.43760861, 0.35258494, -0.06174621] и VEC_2 = [0.16257878, -0.88344182, 1.14405499, 0.33765161, 1.206262]. Записать оператор для подсчета эвклидового расстояния меджу двумя векторами и полученный результат.
Дан вектор VEC = [-3, 5, 1, 2, 18, 2, 234, 11]. Написать оператор который вернет только четные значения из VEC. Записать полученный вектор с четными значениями
Var
ar:array of integer;
n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
writeln('Введите размерность:');
readln(n);
setlength(ar,n);
writeln('Array:');
for i:=0 to n-1 do
begin
ar[i]:=random(-30,30);
write(ar[i]:4);
if min>=ar[i] then
begin
min:=ar[i];
mini:=i;
end;
end;
for i:=0 to mini-1 do
if ar[i]<0 then ar[i]:=0;
writeln;
writeln('Final array:');
for i:=0 to n-1 do
write(ar[i]:4);
end.
Пример ввода:
5
Пример вывода:
Array:
-3 -26 -2 18 -21
Final array:
0 -26 -2 18 -21