Verified answer

Одномерный массив - фиксированное количество элементов одного и того же типа, объединённых одним именем. Каждый элемент в массиве имеет свой порядковый номер - индекс.

Например, есть последовательность элементов: 1 2 3 4 5. Если обозначить эту последовательность одним именем, например, Arr; и присвоить каждому элементу последовательности порядковый номер - индекс, то мы получим одномерный массив.

Обращаться к элементам массива следует по номеру элемента (индексу). Допустим, если мы хотим обратиться к первому элементу вышеописанного массива, мы должны написать так: Arr[0]. Тогда мы получим доступ к первому элементу массива Arr, т.е к единице.

Буду рассказывать на примере массивов в языке Pascal (в других языках всё аналогично).

1. Первое, что необходимо сделать - это объявить переменную типа "Массив".

Делается это так:

var //Ключевое слово Var означает, что далее мы хотим объявить переменную.

 arr: array[1..10] of integer; //Объявление массива из 10 целочисленных элементов.

Либо, это можно сделать так:

type //Ключевое слово type означает, что далее мы хотим объявить пользовательский тип данных.

  vector = array of integer; //Объявили пользовательский тип данных Vector - одномерный целочисленный динамический массив.

var

 arr:vector; //Объявили переменную Arr типа Vector, т.е переменную типа "Целочисленный массив".

2. Будем работать с примером №2, в котором мы создали тип Vector.

После того, как мы объявили переменную типа Vector, в основной части программы мы должны сначала запросить у пользователя размерность массива, установить для заданного массива эту размерность, а затем проинициализировать его.

var

 size: integer; //Заводим переменную для указания размерности массива

После того, как мы запросим у пользователя размерность, устанавливаем ее для заданного массива:

SetLength(arr, size);

Теперь у нас есть массив Arr длинны Size.

Далее нам нужно заполнить его и вывести на экран.

Для этого будем использовать цикл For и функцию Random:

for var i:=0 to size - 1 do

   begin

     arr[i]:=random(25 - (-25) + 1) + (-25); // Идем по циклу и на каждом шагу присваиваем элементу массива с данным индексом случайное значение из диапазона [-25; 25]

     write(arr[i], ' '); //Выводим элемент массива на экран

   end;

3. Для того, чтобы найти количество отрицательных элементов в массиве, нужно пройтись по нему циклом и если обнаружится отрицательный элемент, увеличить значение переменной счётчика. Покажу, как это делается на конкретном примере.

type

 vector = array of integer; //Объявили тип Vector

var

 arr:vector; //Объявили переменную типа Vector

 size, count:integer; //Переменные для размерности массива и подсчёта отрицательных элементов

begin

 count:=0; //Инициализируем переменную для подсчёта отрицательных элементов нулём.

 size:=ReadInteger('Введите размерность массива: '); //Запрашиваем размерность массива у пользователя

 SetLength(arr, size); //Устанавливаем размерность массива

 write('Массив сформирован: ', #10);

 for var i:=0 to size - 1 do

   begin

     arr[i]:=random(25 - (-25) + 1) + (-25); // random(max-min+1)+min

     write(arr[i], ' ');

     if (arr[i] < 0) then inc(count); //Если нашелся отрицательный элемент, увеличиваем счётчик на единицу. Inc count равносильно конструкции count:=count + 1;

   end;

 write(#10, 'Количество отрицательных элементов массива: ', count); //Выводим на экран количество отрицательных элементов.

end.