Program n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
//Pascal ABC
//Вывод чисел кратных 3 на промежутке от 0 до 50
var
i:integer;
begin
for i:=0 to 50 do begin
writeln(i);
i:=i+2;
end;
end.
1)52:2=26(д)-любят конфеты или мороженное.
2)52-20=32(д)-любят и мороженное и конфеты вместе.
3)32:2=18(д)-любят только мороженное
1) Щ<span>о коти здатні повертатись додому навіть тоді, коли знаходяться далеко від нього</span>)
2) У книжц
3) Письмово
4) Прочитавши книгу
5) Очей
6) Читацький щоденик
7) Записав у читацький щоденик