1. Количество единиц среди элементов массива. Заполнение массива произвести с клавиатуры.
2. Ко всем отрицательным элементам массива прибавить первый элемент. Заполнение массива произвести случайными целыми числами из [ -6,6]

Const   N = 13;Var   A:array[1..N] of integer;   i,k:integer;Begink:=0;Write('Введите массив A(',N,'): ');For i:= 1 to N do    Begin    Read(A[i]);    if A[i] = 1 then k:=k+1    End;WriteLn('Количество единиц: ',k);End.Const   N = 13;Var   A:array[1..N] of integer;   i:integer;BeginRandomize;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(13)-6;    Write(' ',A[i]);    if A[i] < 0 then A[i]:=A[i]+A[1]    End;WriteLn;Write('Новый массив:');For i:= 1 to N do    Write(' ',A[i])End.