Задачка Pascal

Question

Даны вещественные числа x1,…, x101, у1,…, у101. Получить x’1,…, x’101, у’1,…, у’101, преобразовав для этого хi и уi по правилу: они оба отрицательны, то каждый из них увеличить на 0,5; если отрицательно только одно, то заменить его квадратом; если оба числа неотрицательны, то каждое из них заменить на среденее арифметическое исходных значений.

aleksei_arykov_1 · Accepted Answer

for k := 1 to 101 do
if (x[k]<0) and (y[k]<0) then
begin
x[k] := x[k] + 0.5;
y[k] := y[k] + 0.5;
end
else if (x[k]>=0) and (y[k]>=0) then
begin
x[k] := (x[k] + y[k])/2;
y[k] := x[k];
end
else if x[k]<0 then x[k] := sqr(x[k])
else y[k]<0 then y[k] := sqr(y[k]);

даже вот так лучше )