Задание:
Составте программу, которая вычесляет среднюю плотность раствора (в кг/м 3) по результатам изменения плотности 7 проб (задаются в массиве констант: 1205,1350, 1170, 1320, 1220, 1310, 1180) ПАСКАЛЬ
Решение:
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.
Знаете другой ответ?