Главная

Сумма и произведение элементов одномерного массива

сб, 02/12/2011 - 19:32 — tech
Темы учебника
Массивы в Паскале. Одномерные массивы
Общее представление о массивах
Задача: 

Задачи данного типа являются достаточно простыми и сводятся к поэлементному перебору массива и выполнению соответствующих алгебраических операций.

Алгоритм решения задачи: 

Перед этим вводятся "пустые" переменные, значения которых в цикле for перезаписываются. Сумма элементов массива находится путем прибавления элемента к прежнему значению переменной. Произведение – умножением прежнего значения переменной на очередной элемент.

Первым значением переменной для суммы должен быть ноль, для произведения – единица.

В примере ниже отводится память под массив, максимальное количество элементов которого равно 100. Однако пользователь сам задает количество элементов массива (разумеется, до 100). Это значение присваивается переменной n.

Пользователь сам заполняет массив значениями (первый цикл for).

Переменные sum и op хранят соответственно значения суммы и произведения элементов массива. В соответствующих циклах их значения постепенно увеличиваются.

Программа на языке Паскаль:  

const
    max = 100;
var
    arr: array[1..max] of real;
    n: integer;
    sum, op: real;
    i: integer;
 
begin
    write('Количество элементов: ');
    readln(n);
 
    write('Укажите значения: ');
    for i := 1 to n do
        read(arr[i]);
 
    sum := 0;
    for i := 1 to n do
        sum := sum + arr[i];
 
    op := 1;
    for i := 1 to n do
        op := op * arr[i];
 
    writeln('Сумма элементов: ', sum:10:2);
    writeln('Произведение элементов: ', op:20:2);
 
end.

  • Добавить комментарий

Комментарии

пт, 04/11/2014 - 12:14 — Гость

Помогите пожалуйста Дан

Помогите пожалуйста
Дан массив Xi, i = 1, 2, …, 15. Найти произведения положительных и
отрицательных элементов массива Р1 и Р2. Определить, что больше по
абсолютной величине – Р1 или Р2

  • ответить