napol2011
05.06.2020 23:23

Составьте программу, которая находит максимальный и минимальный элементы в одномерном массиве и их порядковые номера.

Массив заполняется случайными числами. Количество элементов в массиве не более 10000.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vladaplakhotya
30.09.2020 08:08
//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками".
var
  a, b, c: array [1..100] of longint;
  i, min, n, j, t: longint;

begin
  //Читаем количество элементов в нашем массиве.
  readln(n);
 
  //Читаем массив.
  for i := 1 to n do read(a[i]);
 
  //Заполняем первую "половинку".
  for i := 1 to n div 2 do b[i] := a[i];
 
  //Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и
  //цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.
  for i := n div 2 + 1 to n do c[i - n div 2] := a[i];
 
  //Теперь отсортируем первую "половинку" методом выбора. Идея этого метода
  //основывается на том, что мы ищем минимальный среди неотсортированных элемент,
  //а затем просто swap-аем его с тем, который стоит сразу после отсортированных.
  for i := 1 to (n - 1) div 2 do
  begin
    min := i;
    for j := i + 1 to n div 2 do
      if b[min] > b[j] then
        min := j;
    if min <> i then begin
      t := b[i];
      b[i] := b[min];
      b[min] := t;
    end;
  end;
 
  //Затем вторую точно также, только стоит обратить внимание на сравнения.
  //Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом
  //будет другим.
  for i := 1 to (n - 1) div 2 do
  begin
    min := i;
    for j := i + 1 to n div 2 do
      if c[min] < c[j] then
        min := j;
    if min <> i then begin
      t := c[i];
      c[i] := c[min];
      c[min] := t;
    end;
  end;
 
  //А теперь просто по очереди выводим готовые "половинки", не забывая ставить
  //пробел после вывода каждого элемента.
  for i := 1 to n div 2 do write(b[i], ' ');
  for i := 1 to n - n div 2 do write(c[i], ' ');
end.
0,0(0 оценок)
Ответ:
vabik1983
29.03.2021 07:30

5. В КАКОМ ИЗ ПЕРЕЧИСЛЕННЫХ НИЖЕ ПРЕДЛОЖЕНИЙ ПРАВИЛЬНО РАССТАВЛЕНЫ ПРОБЕЛЫ МЕЖДУ СЛОВАМИ И ЗНАКАМИ ПРЕПИНАНИЯ?

а) Пора, что железо:куй, поколе кипит!

б) Пора, что железо: куй, поколе кипит!

в) Пора, что железо: куй , поколе кипит!

г) Пора , что железо : куй , поколе кипит!

6. ТАНЯ НАБИРАЕТ НА КОМПЬЮТЕРЕ ОЧЕНЬ ДЛИННОЕ ПРЕДЛОЖЕНИЕ. КУРСОР УЖЕ ПРИБЛИЗИЛСЯ К КОНЦУ СТРОКИ, А ДЕВОЧКА ДОЛЖНА ВВЕСТИ ЕЩЁ НЕСКОЛЬКО СЛОВ. ЧТО СЛЕДУЕТ ПРЕДПРИНЯТЬ ТАНЕ ДЛЯ ТОГО, ЧТОБЫ ПРОДОЛЖИТЬ ВВОД ПРЕДЛОЖЕНИЯ НА СЛЕДУЮЩЕЙ СТРОКЕ?

а) нажать клавишу Enter

б) перевести курсор в начало следующей строки с курсорных стрелок

в) продолжать набор текста, не обращая внимания на конец строки, — на новую строку курсор перейдёт автоматически

г) перевести курсор в начало следующей строки с мыши

7. РЕДАКТИРОВАНИЕ ТЕКСТА ПРЕДСТАВЛЯЕТ СОБОЙ:

а) процесс внесения изменений в имеющийся текст

б) процедуру сохранения текста на диске в виде текстового файла

в) процесс передачи текстовой информации по компьютерной сети

г) процедуру считывания с внешнего запоминающего устройства ранее созданного текста

8. ПОЛОЖЕНИЕ КУРСОРА В СЛОВЕ С ОШИБКОЙ ОТМЕЧЕНО ЧЁРТОЧКОЙ: МО|АНИТОР. ЧТОБЫ ИСПРАВИТЬ ОШИБКУ, СЛЕДУЕТ НАЖАТЬ КЛАВИШУ:

а) Delete

б) Backspace

в) Delete или Backspace

г) Enter

9. ПОЛОЖЕНИЕ КУРСОРА В СЛОВЕ С ОШИБКОЙ ОТМЕЧЕНО ЧЕРТОЙ: ДИАГРАММ|МА. ЧТОБЫ ИСПРАВИТЬ ОШИБКУ, СЛЕДУЕТ НАЖАТЬ КЛАВИШУ:

а) Delete

б) Backspace

в) Delete или Backspace

г) Enter

10. ЧТОБЫ КУРСОР ПЕРЕМЕСТИЛСЯ В НАЧАЛО ТЕКСТА, НУЖНО НАЖАТЬ:

а) Ctrl + Home

б) Esc

в) Caps Lock

г) Page Up

11. ФРАГМЕНТ ТЕКСТА — ЭТО:

а) слово

б) предложение

в) непрерывная часть текста

г) абзац

12. ЕСЛИ ФРАГМЕНТ ПОМЕСТИЛИ В БУФЕР ОБМЕНА, ТО СКОЛЬКО РАЗ ЕГО МОЖНО ВСТАВИТЬ В ТЕКСТ?

а) один раз

б) это зависит от количества строк в данном фрагменте

в) столько раз, сколько требуется

г) 99 раз, больше не получится

13. В НЕКОМ ТЕКСТОВОМ ПРОЦЕССОРЕ МОЖНО ИСПОЛЬЗОВАТЬ ТОЛЬКО ОДИН ШРИФТ И ДВА ВАРИАНТА НАЧЕРТАНИЯ — ПОЛУЖИРНОЕ НАЧЕРТАНИЕ И КУРСИВ. СКОЛЬКО РАЗЛИЧНЫХ НАЧЕРТАНИЙ СИМВОЛОВ МОЖНО ПОЛУЧИТЬ?

а) 2

б) 3

в) 4

г) 6

14. УКАЖИТЕ «ЛИШНЕЕ»:

а) вставка

б) изменение начертания

в) изменение цвета

г) выравнивание

15. СЧИТАЯ, ЧТО КАЖДЫЙ СИМВОЛ КОДИРУЕТСЯ ОДНИМ БАЙТОМ, ОПРЕДЕЛИТЕ, ЧЕМУ РАВЕН ИНФОРМАЦИОННЫЙ ОБЪЁМ СЛЕДУЮЩЕГО ВЫСКАЗЫВАНИЯ ЖАН-ЖАКА РУССО: ТЫСЯЧИ ПУТЕЙ ВЕДУТ К ЗАБЛУЖДЕНИЮ, К ИСТИНЕ — ТОЛЬКО ОДИН.

а) 92 бита

б) 220 битов

в) 456 битов

г).512 битов

16. СЧИТАЯ, ЧТО КАЖДЫЙ СИМВОЛ КОДИРУЕТСЯ В КОДИРОВКЕ UNICODE, ОЦЕНИТЕ ИНФОРМАЦИОННЫЙ ОБЪЁМ СЛЕДУЮЩЕЙ ФРАЗЫ: В ШЕСТИ ЛИТРАХ 6000 МИЛЛИЛИТРОВ.

а) 1024 байта

б) 1024 бита

в) 512 байтов

г) 512 битов

17. ДЛЯ ХРАНЕНИЯ ТЕКСТА В ВОСЬМИБИТОВОЙ КОДИРОВКЕ ТРЕБУЕТСЯ 10 КБАЙТ. СКОЛЬКО СТРАНИЦ ЗАЙМЁТ ЭТОТ ТЕКСТ, ЕСЛИ НА СТРАНИЦЕ РАЗМЕЩАЕТСЯ 40 СТРОК ПО 64 СИМВОЛА В СТРОКЕ?

а) 4

6)40

в) 160

г) 25618. ЭТАП ПОДГОТОВКИ ТЕКСТОВОГО ДОКУМЕНТА, НА КОТОРОМ ОН ЗАНОСИТСЯ ВО ВНЕШНЮЮ ПАМЯТЬ, НАЗЫВАЕТСЯ:

а) копированием

б) сохранением

в) форматированием

г) вводом

19. ТЕКСТ, НАБРАННЫЙ В ТЕКСТОВОМ РЕДАКТОРЕ, ХРАНИТСЯ НА ВНЕШНЕМ ЗАПОМИНАЮЩЕМ УСТРОЙСТВЕ В ВИДЕ:

а) файла

б) таблицы кодировки

в) каталога

г) папки

20. КАКОЙ ИЗ ПРЕДСТАВЛЕННЫХ НИЖЕ ФОРМАТОВ НЕ ОТНОСИТСЯ К ФОРМАТАМ ФАЙЛОВ, В КОТОРЫХ СОХРАНЯЮТ ТЕКСТОВЫЕ ДОКУМЕНТЫ?

д)РРТ

б) DOC

b) ODT

г

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