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

Question

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

Answer 1

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.