Основы программирования на языке Turbo Pascal. Беляева И.В. - 63 стр.

UptoLike

Составители:

Рубрика:

Const

a: arr2D = ( (2, 3, 4, 5),

(7, 9, 1, 0),

(8, 5, 6, 2)

);

…

Задача 2: Заполнить массив нулями.

Фрагмент программы:

…

for i := 1 to n do

for j := 1 to m do

a[i, j] := 0;

…

Задача 3: Обнулить элементы первой строки массива.

Фрагмент программы:

…

for j := 1 to m do

a[1, j] := 0;

…

Задача 4: Обнулить элементы последнего столбца массива.

Фрагмент программы:

…

for i := 1 to n do

a[i, m] := 0;

…

Заполнение массива случайными числами

Задача 5: Заполнение массива случайными числами.

Фрагмент программы:

…

{Запуск генератора случайных чисел}

randomize;