Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Одномерный массив...

Автор: Satson 30.11.2006, 00:26

У меня такая проблема не знаю что делать совсем, нужно написать программу на делфи.
Вот условие задачи:

Дан массив размера N и целые числа К и L (1<K<=L<=N). Найти сумму сех элементов массива, кроме элементов с номерами от К до L включительно.

Заранее благодарю!!!

Автор: cardinal 30.11.2006, 00:54

Делаешь цикл, ставишь в нем проверку условия, при выполении условия меняешь счетчик цикла...

Автор: Guedda 30.11.2006, 08:57

Код


program Summa;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  N : array[1..50] of Integer;
  i : Integer;
  Sum : Integer;

const
  K = 9;
  L = 12;

begin
  Sum := 0;
  //Заполняем массив случайными числами
  Randomize;
  for i := 1 to 50 do
    N[i] := random(9);
  //Теперь начинаем вычислять сумму всех элементов
  for i := 1 to K - 1 do //Вычислили до K, теперь вычисляем дальше после L
    Sum := Sum + N[i];
  for i := L + 1 to 50 do
    Sum := Sum + N[i];
  Writeln(Sum);
  Readln;
end.

Всё очень просто на самом деле smile