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

1)у тому місці, де є бажання створити каталог, затисніть послідовно 3 кнопки ctrl, shift n. пропишіть ім'я і натисніть клавішу введення (enter).

2)клацніть на будь-якому порожньому місці робочого столу правою кнопкою мишки. з’явиться маленький діалогової список, де потрібно навести курсор на рядок «створити». відкриється ще одне вікно з переліком того, що можна створити. тут виберіть пункт «папки» — верхній рядок. якщо повісті мишкою вбік, то спливаючий список автоматично зникне. щоб повернути, знову наведіть курсором на «створити». папка з’явилася на робочому столі.

3)щоб створити папку в папці, виберіть і проведіть ту ж операцію: клацнути по пустому полю — вибрати пункт «створити» — «папки» — задати ім’я. або скористайтеся простим способом: натисніть клавішу «нова папка» на робочій панелі.