#define _USE_MATH_DEFINES
#include <iostream>
#include <iomanip>
using namespace std;
double area, circumference;
void circle(double);
int main() {
locale::global(locale(""));
cout << " Введите радиус: ";
double radius;
cin >> radius;
circle(radius);
streamsize accuracy = 8;
cout << " Длина окружности: " << setprecision(accuracy) << fixed << circumference << endl
<< " Площадь круга: " << area << endl;
cin.get(); cin.get();
return 0;
}
void circle(double _radius) {
circumference = 2 * M_PI * _radius;
area = M_PI * _radius * _radius;
}
Вроде бы так, если я тебе дай лучший ответ =) [с новым годом]
===== PascalABC.NET =====
begin
var x := ArrRandom(100, 1, 50);
x.Println;
Println('Минимальный элемент встречается',
x.Count(p -> p = x.Min), 'раз(а)')
end.