Дан массив. Нужно проверить что его члены находятся в возрастающей последовательности

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

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

дан массив. Нужно проверить что его члены находятся в возрастающей последовательности

@ildwine · 04.02.2014, 14:23

Pascal

const
  n = 10;
var
  a : array [1..n] of integer;
  i, k : integer;
begin
  k := 0;
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i])
  end;
  for i := 1 to n do write(a[i]:4);
  writeln;
  for i := 2 to n do if a[i] > a[i-1] then inc(k);
  if k = n - 1 then writeln('возрастающая последовательность')
    else writeln('последовательность невозрастающая');
  readln
end.

@регги 0 / 0 / 0 Регистрация: 15.12.2013 Сообщений: 15
		1
	Дан массив. Нужно проверить что его члены находятся в возрастающей последовательности 04.02.2014, 13:38. Показов 1205. Ответов 1 Метки нет (Все метки) дан массив. Нужно проверить что его члены находятся в возрастающей последовательности 0

	04.02.2014, 14:23

Дан массив. Нужно проверить что его члены находятся в возрастающей последовательности

Решение