Заполните массив 10-юслучайными числами в интервале [-7,15] и подсчитать число максимальных элементов массива.Паскаль.
154
445
Ответы на вопрос:
// PascalABC.NET
begin
var a := ArrRandom(10, -7, 15);
var max := a.Println.Max;
a.Count(p -> p = max).Print
end.
Procedure tform1.button4click(sender: tobject); var buff: tnodepointer; x: titem; i,j: cardinal; begin i: =0; buff: =head; if(buff^.next=nil) then begin showmessage('в стеке один элемент! '); exit; end; while buff < > nil do begin while (buff^.next< > nil) and (buff^.data=buff^.next^.data) and not(isempty(buff)) do begin pop(buff^.next,x); for j: =i to stringgrid1.rowcount-2 do stringgrid1.cells[0,j]: =stringgrid1.cells[0,j+1]; stringgrid1.rowcount: =stringgrid1.rowcount-1; end; buff: =buff^.next; i: =i+1; end; end; ps. delphi у меня сейчас нет, так что проверяйте сами. если что не так - сообщайте.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
aresha13458987021.11.2020 11:46
-
dicsi105.08.2020 05:13
-
натик6516.05.2023 06:35
-
HrenSGori21.02.2023 05:06
-
КеК516908.03.2023 05:11
-
ayshatalieva0103.10.2022 13:54
-
Qulya1522.10.2020 11:33
-
Lizzka688918.04.2020 12:39
-
grishchenkova023.05.2021 10:34
-
Roman232115.03.2021 11:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.