Деловая бумага, подтверждает факт или право, он завершен подписью
1)12-3=9(литров)
2)9+5=14(литров)
3)14-3=11(литров)
ответ:11литров
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Python 3.6.1:
from random import random
N = 100
a = []
for i in range(N):
a.append(int(random()*2))
print(a[i],end=' ')
print()
for i in range(N):
if (a[i] == 0):
a[i] = 1
else:
a[i] = 0
print(a[i],end=' ')
from random import random
N = 20
a = []
for i in range(N):
a.append(int(random()*(2*N+1)-N))
print(a[i],end=' ')
Max = max(a)
Min = min(a)
print('\nMax =',Max)
print('Min =',Min)
print('Max - Min =',Max-Min)
//Pascal
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.