//Pascal
var
a: array[1..10] of real;
i, count: integer;
begin
count := 0;
write('Исходный массив: ');
for i := 1 to 10 do
begin
{Генерация}
a[i] := random(200) + Random() - 100;
{Вывод}
write(a[i] : 0 : 5, ' ');
{Проверка}
if (a[i] > -30) and (a[i] < 0) then inc(count);
end;
writeln;
writeln('Количество отрицательных элементов, превышающих -30: ', count);
end.
В нижеприведённой таблице строчные буквы упорядочены в порядке возрастания их юникодовских номеров (за исключением Ё, поставленной на своём алфавитном месте, и украинской Ґ, перемещённой в конец блока дополнительных знаков для современных славянских языков). Прописные буквы стоят непосредственно перед соответствующими строчными буквами.
Колонка «КР» означает «каноническое разложение» — если ячейка в этом столбце не пуста, то символ можно представить в виде сочетания базового символа и диакритического знака.
Колонка «ВЮ» означает версию Юникода, в которой впервые появился данный символ (самой ранней версией считается 1.1, а не 1
Английские названия символов, написанные заглавными буквами (колонка «название») являются частью стандарта Юникода. Названия на других языках, включая русский и прочие языки на кириллической основе, в стандарте Юникода не прописаны. При этом для многих символов официальных названий на русском языке нет, а некоторые другие символы имеют разные названия в разных кириллических языках (например, «Ъ» в русском алфавите называется «Твёрдый знак», в церковнославянском — «Еръ», а в болгарском — «Ер голям»).
Всего в таблицу включено 429 символов.
Const sz=1000;
var
a: array [1..sz] of integer;
i,j,n,k:integer;
begin
write ('количество чисел');
read(n);
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n-1 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.
надеюсь это что вам нужно