Главная

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

сб, 10/27/2012 - 14:17 — tech
Темы учебника
Массивы в Паскале. Одномерные массивы
Задача: 

Какая сумма элементов массива больше – с первого до элемента с номером К или от элемента с номером К+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 the 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 then
            writeln('sum1 )
        else
            writeln('sum1 = sum2');
 
readln;
end.

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