Решить в паскале. даны три массива: a = {17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3}, b = {-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4}, c = {3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5,9.3}. для каждого из массивов найти суммы положительных элементов. использовать подпрограмму.

194

497

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

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

marinakrivoshe

Информатика

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

Type v = array of real; function sumpos(a: v): real; var i: integer; s: real; begin s : = 0; for i : = 0 to length(a, 0) - 1 do if a[i] > 0 then s : = s + a[i]; result : = s end; var a, b, c: v; begin a : = new real[10] (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3); b : = new real[12] (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4); c : = new real[8] (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3); writeln('сумма положительных элементов массива а ',sumpos(a)); writeln('сумма положительных элементов массива b ',sumpos(b)); writeln('сумма положительных элементов массива c ',sumpos(c)); end. тестовый прогон: сумма положительных элементов массива а 63.5 сумма положительных элементов массива b 70.3 сумма положительных элементов массива c 27.2

Катя0Кот

Информатика

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

Function subprogram(a: array of real): real; begin foreach obj: real in a do if (obj > 0) then result += obj; end; var a: array of real : = (17.2, 9.3, 14.5, -11.7, 4.3, 5.9, -11.9, 12.3, -14.1, -15.3); b: array of real : = (-1.2, 4.2, 5.9, -18.1, 21.2, -3.1, -5.3, -12.2, 21.4, -4.5, 8.2, 9.4); c: array of real : = (3.5, 8.4, -3.2, 4.5, -8.4, -9.5, 1.5, 9.3); begin writeln('a => ', subprogram(a)); writeln('b => ', subprogram(b)); writeln('c => ', subprogram(c)); end.

vikhrovdavid

Информатика

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

все просто-

64 цветов значит каждый пиксель(точка) кодируется 6ю

теперь перемножаем высоту и ширину 1024х768=786432 на 6

786432х6= разделим на 8 и найдем сколько байт 4718592/8=

разделим на 1024 чтобы найти сколько килобайт 589824/1024=576килобайт

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

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

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

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

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

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

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

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

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

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