Pascal

Даны 3 числовые последовательности a, b, c. Сформировать две новые последовательности x, y в соответсвии с правилом

xi=min (ai, bi) / 2

yi=min (bi, ci) / 2

i=1,2 ... n

program one;

type TIntMassiv = array of real;

var a, b, c, x, y: TIntMassiv; n, i:integer;

begin

writeln ('Введите длину массивов (n) ') ;

readln (n) ;

setLength (a, n) ; / / Создаем динамические массивы длины n

setLength (b, n) ;

setLength (c, n) ;

setLength (x, n) ;

setLength (y, n) ;

for i : = 0 to n-1 do

begin

writeln ('Введите ', i+1, ' массива a') ;

readln (a[i]) ;

writeln ('Введите ', i+1, ' массива b') ;

readln (b[i]) ;

writeln ('Введите ', i+1, ' массива c') ;

readln (c[i]) ;

end;

for i : = 0 to n-1 do

begin

x[i] : = MIN (a[i], b[i]) / 2;

y[i] : = MIN (a[i], c[i]) / 2;

end;

for i : = 0 to n-1 do

begin

writeln ('x[', i,']=', x[i]) ;

writeln ('y[', i,']=', y[i]) ;

end;

a : = nil; / / Освобождаем память

c : = nil;

b : = nil;

x : = nil;

y : = nil;

end.