Подсчет суммы всех элементов в массиве

@kelbush369 · Регистрация: 30.10.2012

Author24 — интернет-сервис помощи студентам

помогите плииззз не могу разобраться
дано масивa A[1..n] составить программу подсчета суммы всех Элементов, находящийся между элементами A [1] и A [n]

@deadmetaller · 14.11.2012, 11:31

Неверно понял условие, сейчас переделаю

Добавлено через 18 минут
Вот как-то так:

Pascal

var
    a : array[1..1000] of integer;
    i, S, n: integer;
begin
  writeln ('Введите размер массива ');
  read (n);
  Writeln('Исходный массив: ');
  S:=0;
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(50);
    write(a[i],' ');
    if (i>1) and (i<n) then s:=s+a[i];
  end;
  writeln;
  Writeln('Сумма = ',S);
end.

P.S. Первый и последний элементы массива не складывает.

@kelbush369 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 7
		1
	Подсчет суммы всех элементов в массиве 14.11.2012, 10:21. Показов 1676. Ответов 1 Метки нет (Все метки) помогите плииззз не могу разобраться дано масивa A[1..n] составить программу подсчета суммы всех Элементов, находящийся между элементами A [1] и A [n] 0

	14.11.2012, 11:31

Подсчет суммы всех элементов в массиве

Решение