Произведение равно 3240

В разделе определения констант задается размерность массива N = 10. В разделе описания переменных описывается массив целых чисел, переменные SUM и PRO, параметр цикла I.

Ввод элементов осуществляется в простом цикле с оператором WRITELN (‘введите через пробел 10 элементов массива’).

При подготовке цикла задается начальное значение суммы оператором SUM: = 0; начальное значение произведение — оператором PRO: = 1.

Для вычисления суммы и произведения элементов числовой последовательности организован еще один простой цикл с оператором FOR. Параметром этого цикла является переменная I, значение которой меняется от 1 до 5 с шагом 1. В теле цикла вычисляются сумма и произведение элементов, значения индексов которых соответственно

(1 2), [ 1 (2-1)].

Тело цикла, состоящее из двух операторов, заключено в операторные скобки BEGIN … END.

Для вывода результатов вычисления на экран дисплея используются операторы WRITELN, в списке данных которых записываются текстовые сообщения в апострофах и переменные с указанием ширины поля вывода.

Пример 5. Составить программу определения наибольшего элемента числовой последовательности a₁, a₂, …, a₁₅. Вывести на печать найденный максимальный элемент.

Входными данными являются значения элементов числовой последовательности и число членов последовательности, выходными данными — номер максимального элемента последовательности и значение этого элемента.

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

В качестве параметра цикла берется номер элемента числовой последовательности. Начальное значение параметра цикла 2, конечное – равно числу элементов в массиве, шаг цикла принимается равным 1.

В качестве начального значения возможного максимума берём значение первого элемента последовательности.

В теле цикла проверяется условие: будет ли очередное значение элемента последовательности больше значения максимума. Окончание цикла имеет место после просмотра всех элементов массива.

Введём обозначение: А — числовая последовательность а1, а2, …, а15; N — размерность массива; переменная AMAX — наибольший элемент; переменная PN — порядковый номер наибольшего элемента; переменная I — параметр цикла.

Программа вычисления наибольшего элемента последовательности имеет вид:

PROGRAM PR3;

CONST N=15; {размерность массива А}

VAR

A: ARRAY [1..N] OF INTEGER; {описание массива А}

AMAX: INTEGER; {обозначение максимального элемента}

PN: INTEGER; {параметр цикла}

I: INTEGER;

BEGIN

WRITELN (‘введите через пробел 15 чисел’);

FOR I:= 1 TO N DO

READLN (A[I]);

AMAX:= A[1]; PN:= 1; {подготовка цикла}

FOR I:=2 TO N DO {цикл}

IF A[I] > AMAX THEN

BEGIN

AMAX:= A[I];

PN:= I;

END;

{печать}

WRITELN; {пропуск строки}

WRITELN (‘максимальный элемент последовательности А’);

WRITELN (‘A (‘, PN:2, ‘) = ‘, AMAX:4);

END.

Результат работы программы выглядит следующим образом:

Поиск по сайту: