Pascal abc. написать процедуру, которая выводит на экран первые 3 элемента из массива, которые не равны друг другу. или процедуру нахождения 3 максимальных элементов массива, которые не равны друг другу

234

419

Посмотреть ответы 2

Ответы на вопрос:

kris0287

Информатика

4,6(53 оценок)

Var m: array[0..1000] of longint; n,i: longint; procedure tf; var q,j: longint; o: array[1..10] of longint; begin write(m[1],' '); q: =1; o[q]: =m[1]; i: =1; while q< > 3 do begin i: =i+1; if q=1 then if m[i]< > o[1] then begin write(m[i],' '); q: =q+1; o[q]: =m[i]; end; if q=2 then if (m[i]< > o[1]) and (m[i]< > o[2]) then begin write(m[i]); q: =q+1; end; end; end; procedure tm; var mk: array[1..10] of longint; begin for i: =1 to 3 do mk[i]: =0; for i: =1 to n do if mk[1]< m[i] then begin mk[3]: =mk[2]; mk[2]: =mk[1]; mk[1]: =m[i]; end else if (mk[2]< m[i]) and (m[i]< > mk[1]) then begin mk[3]: =mk[2]; mk[2]: =m[i]; end else if (mk[3]< m[i]) and (mk[2]< > m[i]) then mk[3]: =m[i]; write(mk[1],' ',mk[2],' ',mk[3]); end; скорее всего это можно было написать чище и оптимальнее, но вот моё решение на скорую руку

Жансулу919191

Информатика

4,6(63 оценок)

Целая часть переводится делением на 2, а дробная - умножением на 2 (8 или 16 соответственно) 24,25 с основанием 10 = 11000,01 с основанием 2 0,2119 с основанием 10 = 0,0011 с основанием 2 0,2119 с основанием 10 = 0,1543 с основанием 8 0,2119 с основанием 10 = 0,463 с основанием 16 в десятичную - другое правило 1100,110 с основанием 2 = 12,75

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.