Дан массив А, содержащийф последовательность чисел: 0…

Есть сомнения в том первый элемент массива это 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.