Написать программу, определяющую является ли заданный массив убывающим

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

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

Здравствуйте! Помогите, пожалуйста написать программу, определяющую является ли заданный массив убывающим. (Язык Pascal)

@Dj Programmer · 01.12.2013, 21:59

iskantino,

Pascal

var a:array [1..10] of integer; i,k:byte;
begin
 for i:= 1 to 10 do
    begin
    write ('a[',i,'] = ');
    readln (a[i]);
     end;
 writeln;
 for i:=2 to 10 do
     if a[i]>=a[i-1] then inc(k);
 if k = 0 then writeln ('Последовательность строго убывает! ')
 else
 writeln ('Последовательность не убывает либо в массиве есть одинаковые элементы!');
 end.

@iskantino · 01.12.2013, 22:34 **[ТС]**

Молодец! Спасибо. Я признателен!

@iskantino 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 19
		1
	Написать программу, определяющую является ли заданный массив убывающим 30.11.2013, 20:49. Показов 1991. Ответов 2 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста написать программу, определяющую является ли заданный массив убывающим. (Язык Pascal) 0

@iskantino 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 19
	01.12.2013, 22:34 [ТС]	3
	Молодец! Спасибо. Я признателен! 0

Опции темы

Написать программу, определяющую является ли заданный массив убывающим

Решение