Вычислить сумму положительных элементов массива целых чисел без учёта максимальных значений. в среде delphi.

128

153

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

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

Dinomid93

Информатика

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

Var mas: array [1..20] of integer; function summ(var m: array of integer; length: integer): integer; var k: integer; begin randomize; //заполнение массива for k: =1 to length do m[k]: =random(5000)-2500; result: =0; //подсчёт суммы положительных элементов массива for k: =1 to length do if m[k]> 0 then result: =result+m[k]; end; procedure tform1.button1click(sender: tobject); var k, sum: integer; begin sum: =summ(mas, 20); memo1.text: ='массив чисел '; for k: =1 to 20 do memo1.lines.add(inttostr(mas[k])+','); memo1.lines.add('сумма положительных чисел '+inttostr(sum)); end;

drfast555

Информатика

4,8(66 оценок)

Вставка - таблица - выходят квадратики - делаешь так чтобы сверху было 3х8 - 3 столбика и 8 строчек

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

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

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

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

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

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

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

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

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

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