All about me ... QANTAS1 Something which terrifies / terrifying me2 Something which I'm worried/worry about3 The most horrifying/horrified thing that i've seenor heard this year.4 A piece of news which astonished / astonishing me5 ATV programme which I saw recently which I foundfascinated/fascinating6 A celebrity who often shocking shocks people7 A singer whose voice is so bad that it's embarrassedembarrassing8 Somewhere interesting interested that healways wanted to visit.9 The place where I feel most relaxed relaxing10 Something people do whichI find annoying annoyed.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
информатика датчик цвета режимы скажите без спама
Автор: yana799707
Определи какую фигуру изменили в текстовом редакторе Microsoft Word
Автор: Виктория-Марина626
Соч по информатике 6 класс, 2 четверть.с ответами и желательно картинкой
Автор: ustinovalubov6666
Сколько ячеек входит в диапазон
Автор: mariashapar
Из мешка взяли 1 приз, вес которого 7 бит. Сколько призов было всего?
Автор: НосовЖелиховская
Красный ЗеленыйЖелтыйСиний5Назовите блоки указанные на картинке " b/c/e/h"( : 4)
Автор: MikhailovichKrizhnaya578
pascal
Объяснение:
var i, n, mysign, nsign: integer;
ismon: boolean;
a: array of integer;
begin
Write('Введите размер массива: '); ReadLn(n);
SetLength(a, n);
WriteLn('Введите Элементы массива: ');
for i := 0 to n - 1 do ReadLn(a[i]);
mysign := sign(a[1] - a[0]);
if mysign >= 0 then mysign := 1;
ismon := true;
for i := 2 to n - 1 do
begin
nsign := sign(a[i] - a[i - 1]);
if nsign >= 0 then nsign := 1;
if nsign <> mysign then ismon := false;
end;
if ismon then WriteLn('Массив монотонный') else WriteLn('Массив не монотонный');
end.