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

UptoLike

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

Рубрика:

2. Проход по всем элементам массива и прибавление их значений к

сумме S.

3. Сумму делим на количество элементов массива SA=S/N .

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

Var

S : integer; {Сумма элементов массива}

Sa : real; {Среднее арифметическое элементов массива}

…

Begin

…

{1} s := 0;

{2} for I := 1 to n do

s := s + A[i];

{3} sa := s / n;

…

Поиск максимального/минимального элемента массива

Задача 6: Найти значение максимального элемента массива.

Алгоритм содержит три пункта:

1. Максимальным элементом считаем первый элемент: max=A[1].

2. Начиная со второго элемента, сравниваем имеющийся

максимальный элемент max с очередным элементом массива A[i].

3. Если очередной элемент массива больше имеющегося

максимального элемента, то это и есть новый максимальный элемент

max=A[i].

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

Var

Max : integer; {Значение максимального элемента массива}

…

Begin