1. Количество единиц среди элементов массива. Заполнение массива произвести с клавиатуры.

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

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, k:integer;

Begin

k:=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;

Begin

Randomize;

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.