Массивы

@angelochka · Регистрация: 11.10.2011

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

Даны натуральное число n,действительные числа a1,...,an.Вычислить: Abs(a1), Abs(a1+a2),...,Abs(a1+...+an)

Я знаю что это массивы...но я не знаю как их решать...помогите.Заранее спасибо!

@_taddy · 01.11.2011, 16:32

A1 - заданный массив, A2 - искомый, temp - временная переменная

Delphi

temp := 0;
  for I := 0 to n - 1 do
  begin
    temp := temp + a1[i];
    A2[i] := Abs(temp);
  end;

@angelochka 0 / 0 / 0 Регистрация: 11.10.2011 Сообщений: 15
		1
	Массивы 01.11.2011, 15:49. Показов 1025. Ответов 1 Метки нет (Все метки) Даны натуральное число n,действительные числа a1,...,an.Вычислить: Abs(a1), Abs(a1+a2),...,Abs(a1+...+an) Я знаю что это массивы...но я не знаю как их решать...помогите.Заранее спасибо! 0

	01.11.2011, 16:32

Массивы

Решение