Найти максимальное значение возрастания одной из последовательностей

@qwenbk · Регистрация: 22.10.2013

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

Дан массив из n элементов, элементы целые, положительные числа, найти максимальное значение возрастания одной из последовательностей. Ну вот например дана последовательность 1 5 6 2 3 4 5 8 8 28, ответ будет 20 (28-8)

@volvo · 13.03.2014, 01:30

Это имелось в виду:

Pascal

{$mode objfpc}
const
  n = 10;
var
  i, max : integer;
  a : array[1..n] of integer = (1, 5, 6, 2, 3, 4, 5, 8, 8, 28);
begin
  max := 0;
  for i := 2 to n do
    if a[i] - a[pred(i)] > max then max := a[i] - a[pred(i)];
  writeln(max);
end.

?

@qwenbk 0 / 0 / 0 Регистрация: 22.10.2013 Сообщений: 10
		1
	Найти максимальное значение возрастания одной из последовательностей 12.03.2014, 23:13. Показов 1014. Ответов 1 Метки нет (Все метки) Дан массив из n элементов, элементы целые, положительные числа, найти максимальное значение возрастания одной из последовательностей. Ну вот например дана последовательность 1 5 6 2 3 4 5 8 8 28, ответ будет 20 (28-8) 0

	13.03.2014, 01:30

Найти максимальное значение возрастания одной из последовательностей

Решение