Схема к задаче 8.1 Схема к задаче 8.2

Задать одномерный числовой массив А [15] из целых чисел. Определить произведение четных по значениям элементов массива, стоящих после минимального элемента.

Математическая формулировка задачи:

Чтобы определить такое произведение, требуется сначала найти минимальное значение в массиве и запомнить в какой-либо переменной порядковый номер минимума. После этого надо подсчитать произведение четных по значениям элементов, начиная просмотр массива не с первого элемента, как обычно, а с этого номера.

Поиск минимума в массиве происходит по стандартному алгоритму. Сначала за минимум принимается значение первого по порядку элемента массива. Номер минимума соответственно принимается за 1. Массив просматривается поэлементно в цикле от первого элемента до последнего. Если найдется элемент, значение которого меньше, чем принятый минимум, то минимум равен ему. Одновременно меняется и номер минимума. После выхода из цикла в переменной минимум окажется наименьшее значение массива.

Текст программы к задаче 8.3:

Program Ex_8_3;

Uses Crt;

Type Mas = array [1..15] of integer;

{ объявляем тип массив из 10 целых элементов }

Var A: Mas;

{ переменные A, В типа массив }

i: integer; { индексы массива A}

Min: integer; { минимум в массиве }

k: integer; { номер минимума }

P: real;

{ произведение четных по значениям элементов}

Begin

ClrScr;

Randomize;

For i:=1 to 15 do begin

A[i]:=random(200)-100;

Write(A[i]:5);

{ вывод элементов массива в одну строку }

End;

Writeln; { перевод строки }

Min:=A[1];

k:=1;

For i:=1 to 15 do begin

Не нашли, что искали? Воспользуйтесь поиском: