Сумма элементов частей массива | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Сумма элементов частей массива

Какая сумма элементов массива больше: с первого до элемента с номером К или от элемента с номером К+1 до последнего?

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

  1. Ввод элементов массива.
  2. Ввод значения k.
  3. Подсчет суммы элементов массива от 1-го до элемента с номером k включительно.
  4. Подсчет суммы элементов массива от элемента с индексом k+1 до последнего.
  5. Сравнение сумм.

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

const N = 10;

var 
    arr: array[1..N] of integer;
    i, k: byte;
    sum1, sum2: integer;

begin
    writeln('Enter ten elements of the array:');
    for i := 1 to N do                  {1}
        read(arr[i]);

    write('k = ');                      {2}
    readln(k);

    sum1 := 0;
    for i := 1 to k do                  {3}
        sum1 := sum1 + arr[i];

    sum2 := 0;
    for i := k + 1 to N do              {4}
        sum2 := sum2 + arr[i];

    if sum1 > sum2 then                 {5}
        writeln('sum1 > sum2')
    else
        if sum1 < sum2 then
            writeln('sum1 < sum2')
        else
            writeln('sum1 = sum2');
 end.

Пример выполнения программы:

Enter ten elements of the array:
1 2 3 4 5 6 7 8 1 1
k = 7
sum1 > sum2