Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ludmilaels
25.08.2021 14:59 •
Другие предметы
Почему власть ужесточила национальную политику в первые послевоенные годы?
Показать ответ
Ответ:
olga877
06.06.2020 15:33
Const N=10;
var a:array [1..N] of integer;
k,i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(10)+1;
write (a[i], ' ');
end;
for i:=1 to N-1 do
if a[i]>a[i+1] then k:=k+1;
writeln('k= ', k);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
Martishevska
05.03.2023 22:15
Скафандр с кислородным стоит 134 200 тенге, причём скафандр- в 10 раз Дарлан кислородного . Сколько стоит скафандр и сколько стоит ? 1) 122 000 скафандр и 12 2) 100 000 скафандр...
Ариана20031410
22.09.2020 08:55
Представьте, что вы исследователь. Вас попросили сотрудничать с военными, чтобы консультировать и проводить исследования, которые будут использоваться военными для ведения вооруженного...
moschkovaddascha
29.07.2021 04:40
O zbekistonning tabiiy boyliklari haqida matn yaratish...
Янчик172
16.07.2020 11:54
Нужно решить задачу. Вы работаете санитаркой в детском отделении туберкулезного диспансера, вам предстоит произвести дезинфекцию детских игрушек. Приготовьте 3 процента рабочего...
troft
08.05.2021 22:41
план для проекта как подсчитать налоги ...
mullyminovam
07.10.2022 10:24
Кыргызская литература. Кыргыз Адабият 7 класс. Автору: А. А. Оморова. Б. С. Султанбекова. Кемчонтой. 1. Үзүндүнү окуп, кайсы орус акынынын чыгармасына окшош экендигин байкагыла....
Dlana
23.08.2022 22:40
Чому підлітки починають вживати наркотики? Яка дія наркотиків на організм? ...
Dhshssh
16.05.2023 17:46
Укажите тип гибридизации HClO, HClO2, HClO3, HClO4....
osmo2008
16.05.2023 17:46
Как метод валентных связей объясняет симметрично треугольную форму молекул BF3 и пирамидальную NH3?...
maksderbenevMarc
16.05.2023 17:46
Рассчитайте рН раствора, если ЭДС хингидронно-хлорсеребряной цепи при температуре 25ºС равна 0,297 В. Для хлорсеребряного...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array [1..N] of integer;
k,i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(10)+1;
write (a[i], ' ');
end;
for i:=1 to N-1 do
if a[i]>a[i+1] then k:=k+1;
writeln('k= ', k);
end.