В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
cvacvadav
cvacvadav
04.01.2020 09:29 •  Информатика

Как это исправить помагите амонг ас маленкий экран ну


Как это исправить помагите амонг ас маленкий экран ну

Показать ответ
Ответ:
stasshishakozo53x
stasshishakozo53x
02.10.2020 02:28

var m,a:array [-100..100] of integer;

n,j,i,k,count:integer;

begin

write('введите сколько необходимо чисел: ');

read(n);

write('число к: ');

read(k);

//осуществим ввод n элементов и отсортируем по условию в другой массив а

for i:=1 to n do begin

 read(m[i]);

if m[i]>k then begin

 inc(count);

 a[count]:=m[i];

 end;

end;

//отсортируем этот массив пузырьковым методом  

for i:=1 to count-1 do begin

 for j:=1 to count-i do

   if a[j] < a[j+1] then

     swap(a[j],a[j+1]);

  end;

//выводим уже отсортированный массив чисел > к

  for i:=1 to count do

    write(a[i],' ');

end.


Дан одномерный массив целых чисел. Выбрать из массива все числа больше заданного числа k и упорядочи
0,0(0 оценок)
Ответ:
daniil6092002
daniil6092002
17.07.2021 16:36

Собака - друг людини. Я люблю собак, тому що це відданий і доброзичливий друг. З собакою можна пограти або навчити її різним командам. Якщо господареві загрожує небезпека, собака буде захищати його навіть ціною власного життя.

Собака привчає до відповідальності, адже за нею необхідно щодня доглядати: годувати, вигулювати, не забувати міняти воду для пиття.

Якщо у людини поганий настрій, йому сумно або у нього щось болить, собака відчуває це і всіляко намагається до своїм господарям, підняти їм настрій.

Я люблю собак, адже вони віддають нам тепло і любов.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота