Question

В магазин привезли n мешков с сахаром, вес которого указан в фунтах. Переведите вес каждого мешка в килограммы. Определите самый легкий мешок. (1 фунт = 453,592 грамма)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqReal(ReadInteger).Select(t->t*0.453592).ToArray;
  a.Println; a.Min.Println;
end.

Пример
10
32.6 29.4 30.7 31 29.92 43.4 41.26 42 38.82 40.05
14.7870992 13.3356048 13.9252744 14.061352 13.57147264 19.6858928 18.71520592 19.050864 17.60844144 18.1663596
13.3356048

Answer 2

#include <iostream>

int main(){
int n;
float weight, lw = 0;
const float ft = 0.453592; // kg
std::cout << "number of bags: ";
std::cin >> n;
for (int i = 0; i < n; i ++){
std::cout << "weight is ";
std::cin >> weight;
std::cout << "in kg " << weight * ft << "\n";
if (lw != 0 && weight < lw) lw = weight;
else lw = weight;
}
std::cout << "the lightest bag is " << lw << " kg\n";
}