Реферат: Одномерные и двумерные массивы таблицы

Begin

Log := True;

Repeat

A[i] := -32768 + random(65535); J := 1;

While Log and (j <= i - 1) Do

begin Log := a[i] <> a[j]; j := j + 1 End

Until Log

End;

For i := 1 to N Do Write(a[i]:7); writeln

End.

2) ввод значений элементов массива с клавиатуры используется обычно тогда, когда между элементами не наблюдается никакой зависимости. Например, последовательность чисел 1, 2, -5, 6, -111, 0 может быть введена в память следующим образом:

Program Vvod;

Var N, I : Integer;

A : Array [1..20] Of Integer;

Begin

Write('Введите количество элементов массива '); ReadLn(N);

FOR I := 1 TO N DO

Begin

Write('Введите A[', I, '] '); ReadLn(A[I])

End.

Над элементами массивами чаще всего выполняются такие действия, как

а) поиск значений;

б) сортировка элементов в порядке возрастания или убывания;

в) подсчет элементов в массиве, удовлетворяющих заданному условию.

Cумму элементов массива можно подсчитать по формуле S=S+A[I] первоначально задав S=0. Количество элементов массива можно подсчитать по формуле К=К+1, первоначально задав К=0. Произведение элементов массива можно подсчитать по формуле P = P * A[I], первоначально задав P = 1.

Задача 3. Дан линейный массив целых чисел. Подсчитать, сколько в нем различных чисел.

{Подсчет количества различных чисел в линейном массиве.

ИДЕЯ РЕШЕНИЯ: заводим вспомогательный массив, элементами

которого являются логические величины (False - если элемент