var n,k,v,min,max,s: integer;
begin
readln(n);
k:=1;
read(v);
min:=v;
max:=v;
s:=v;
while k<n do
begin
k:=k+1;
read(v);
s:=s+v;
if v<min then min:=v;
if v>max then max:=v;
end;
writeln('min = ',min,' max = ',max,' sr = ',s/n:4:2);
end.
Пример:
5
85 62 105 74 90
min = 62 max = 105 sr = 83.20
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2><h2>Код</h2>
- begin
- var arr := Range(0, ReadInteger).Select(x -> x*x).Println;
- end.
<h2>Вывод</h2>
10
0 1 4 9 16 25 36 49 64 81 100
<span>long Factorial (int i)
{
if (i==0) return 1;
else return Factorial(i-1)*i;
}
int main()
{
float sum=0;
</span>for (int i=0;i<N;i++)
{
Sum=Sum+(Facotrial(i)/(2*i+1))
}
<span>S=sum;
cout<<s;
return 0;
<span>}
Примерно так. Только библиотеки не помню.
</span></span>
Ответ:
1800 байт
Объяснение:
45х20=900 точек
256 бит, это 2 байта
900 точек по 2 байта 1800 байт