#include <iostream>
using namespace std;
int main ()
{
int y[10], n, i, max, min;
cout<<"\n N="; cin>>n;
for (i=0; i<n; i++)
{
cout<<"\n Y["<<i<<"]=";
cin>>y[i];
}
min=y[0];
max=0;
for (i=0; i<n; i++) {
if ( max<y[i] )
{
max = y[i];
}
if ( min>y[i] )
{
min = y[i];
}
}
cout << "Summa max i min = " << max+min << endl;
system("pause");
return 0;
}
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
var c:=ReadReal('c=');
var p:=(a+b+c)/2;
var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:0:1)
end.
Ответ:
Объяснение:
Program n1;
var x, y: longint;
begin
writeln('Введите x');
readln(x);
if (x<=10) and (x>=-10) then y:=7*x else y:=x+5;
writeln('y = ', y);
readln;
end.