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

UptoLike

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

Рубрика:

110

Процедура ReadArray. Имеет два параметра: первый – параметр–

переменную массив Arr, второй – параметр–переменную целого типа

NumEl.

procedure PrintArray(Arr:ArrayInteger; NumEl:integer);

Процедура PrintArray. Имеет два параметра: первый – параметр–

значение массив Arr, второй – параметр–значение целого типа NumEl.

Function AverageArithmetic(Arr:ArrayInteger; NumEl:integer):real;

Функция AverageArithmetic. Имеет два параметра: первый – параметр–

значение массив Arr, второй – параметр–значение целого типа NumEl.

Возвращает значение типа Real.

Задача с тремя массивами с использованием подпрограмм

с параметрами

Решим ту же задачу про три массива, только теперь будем

использовать процедуры и функции с параметрами:

{Ввести 3 массива целых чисел. Выяснить, в каком из массивов

наибольшее среднее арифметическое элементов.

Использовать минимум процедур и функций и минимум

глобальных переменных. Использовать подпрограммы

с параметрами.}

Program ThreeArraysWithParameters;

Const

maxNumEl = 20; {Максимально возможное количество

элементов в массиве}

Type

IndexElement = 1 .. maxNumEl; {Индексы массива}

ArrayInteger = array[IndexElement] of integer; {Массив

целых чисел}