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

 Есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5  и тогда объявление массивов будет следующим var a:array[1..9] of integer=( 0,5,12,-18,16,13,5,8,0 );  b: array[1..9] of real;     Program massiv; Uses Crt; var a:array[1..8] of real =(0.5,12,-18,16,13,5,8,0);        b: array[1..8] of real;         sum:real        i:integer; begin      clrscr;      write('Массив B: ');      sum:=0;       for i:=1 to 8 do           begin                    b[i]:=a[i]/2;                 sum:=sum+a[i]+b[i];                write(b[i]:2:2);         end;    writeln;   writeln('Сумма элементов массивов а и b: ',sum);    writeln(' Первый элемент массива а : ',a[1]:2:2);     writeln(' Первый элемент массива b : ',b[1]:2:2);      readkey; end.