35

Составте программу, которая вычесляет среднюю плотность раствора

invest5 07 марта 2023

Составте программу, которая вычесляет среднюю плотность раствора (в кг/м 3) по результатам изменения плотности 7 проб (задаются в массиве констант: 1205,1350, 1170, 1320, 1220, 1310, 1180) ПАСКАЛЬ

категория: информатика

88

Var pl, sr: real; i: integer; begincls; writeln ('Ввод величин: '); for i: =1 to 7 do beginreadln (pl); sr: =sr+pl; end; sr: =sr/7; write ('Ответ: ', sr); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...