дан массив А, содержащийф последовательность чисел: 0,5; 12; -18; 16; 13; 5; 8; 0 Сформировать массив В. каждый элемент которого вычисляется по формуле: В (I) = A (I) / 2 Вывести на печать элементы массива В Вычислить сумму элементов массивов А И В Вывести на печать первый элемент массива А и первый элемент массива В

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;

begin

for 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

begin

s1:=s1 + a[i];

s2:=s2 + b[i];

end;

writeln (' сумма элементов массива а = ', s1);

writeln (' сумма элементов массива b = ', s2);

writeln (' первый элемент массива а = ', a[1]);

writeln (' первый элемент массива b = ', b[1]);

end.