дан массив А, содержащийф последовательность чисел: 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.