Пример 2. {Инициализация массива выполняется с использованием генератора

{Инициализация массива выполняется с использованием генератора равномерно-распределенных чисел}

Program Ex2;

Uses Crt;

Const

{Определение размерности массива}

N=3; M=5;

Type

Mas=Array[1..N, 1..M] of Real;

Var

X:Mas;

i, j, Imax, Jmax: Integer;

Xmax: Real;

{Для поиска максимального элемента вводятся следующие переменные:}

{Xmax – значение максимального элемента; }

{Imax – строка максимального элемента; }

{Jmax – столбец максимального элемента}

Begin

{Инициализация массива}

{Randomize – процедураизменения базы генерации случайных чисел}

Дата добавления: 2015-07-11