Презентация, доклад Массивы Turbo Pascal 7.0

может быть, одномерным и многомерным. Чтобы задать тип-массив, используется зарезервированное слово array, после которого следует указать тип индекса (индексов) компонент (в квадратных скобках) и далее после слова of - тип самих компонент.
type
<имя типа> = аггау[<тип индекса(индексов)>] of <тип компонент>;
var
В: array[1..5] of Integer;

Matrix : array[1..3, 1..2] of Integer;
{тип - двумерный массив целых чисел, состоящий из 3 строк и 2 столбцов}

том числе и структурированного, типа, индекс (индексы) может быть любого порядкового типа, кроме типа Longint.

Доступ к компонентам массива осуществляется указанием имени массива, за которым в квадратных скобках помещается значение индекса (индексов) компоненты. В общем случае каждый индекс компоненты может быть задан выражением соответствующего типа, например:

М1[2] , Matr[X, Y], M2[Succ(I) ] и т. д.

Так, если заданы следующие массивы:

var А, В: array[1..5] of Integer;
С: array[1..5] of Integer;

то допустим следующий оператор:

A := В;

С другой стороны, оператор

С := А;

недопустим, т. к. массивы А и С - не идентичных типов.

const N=10;
var
A: array [1..N] of integer
i:integer;
begin
Randomize; { Инициализация датчика случайных чисел }
for i:=1 to N do
A[i]:=Random(100);
ClrScr;
Writeln('Введенный массив;');
for i:=1 to N do
write(A[i]:4);
writeln;
readln
end.

стоящие на нечетных местах, с соответствующими элементами на четных местах
3. Найти максимальный (минимальный) элемента массива, а также его порядковый номер
4. Вычисление суммы положительных элементов массива
5. Подсчитать количество четных элементов массива, заданного датчиком случайных чисел