дан массив А,содержащийф последовательность чисел:0,5;12;-18;16;13;5;8;0 Сформировать массив В.каждый элемент которого

program zz1;const n = 8; // задаем количество элементов в массивеa:array [1..n] of real=(0.5,12,-18,16,13,5,8,0 );var i:integer; // задаем переменную целого типаs1, s2:real;// задаем переменные не целого типаb:array [1..n] of real;beginfor i:=1 to n do b[i]:=a[i]/2;for i:=1 to n do write(b[i],\' \');writeln;for i:=1 to n do begins1:=s1 + a[i];s2:=s2 + b[i];end;writeln(\' сумма элементов массива а = \', s1);writeln(\' сумма элементов массива b = \', s2);writeln(\' первый элемент массива а = \', a[1]);writeln(\' первый элемент массива b = \', b[1]);end.