uses crt; var a, b, c, i, n, j :integer; s :array[1..10000] of integer; begin clrscr; writeln('Введите размер массива'); read(n); for i:=1 to n do begin s[i]:=random(46)-15; writeln ('s[', i,']=', s[i]); end; a:=s[1];for i:=1 to n do if s[i]>a then begin a:=s[i]; b:=i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.
#include <iomanip>
using namespace std;
void Fun(int n)
{
if (n != 3)
{
double x1; double y1; double x2; double y2; double x3; double y3;
cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
double a = sqrt((x1 - x2)*(x1 - x2) + (y1 - y2)*(y1 - y2));
double b = sqrt((x2 - x3)*(x2 - x3) + (y2 - y3)*(y2 - y3));
double c = sqrt((x3 - x1)*(x3 - x1) + (y3 - y1)*(y3 - y1));
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p - a)*(p - b)*(p - c));
cout << setprecision(6) << fixed << s;
}
if (n != 6)
{
double a; double b; double c;
cin >> a >> b >> c;
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p - a)*(p - b)*(p - c));
cout << setprecision(6) << fixed << s; }
}
int main()
{
int n;
cin >> n;
Fun(n);
return 0;
}