Ввода (клавиатура)
вывода (принтер. монитор)
хранения (databank)
var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin;
var (n,k,l):=ReadInteger3('Введите через пробел n,k,l:');
var a:=ArrRandom(n,-99,99); a.Println;
Writeln('s=',(a?[:k-1]+a?[l:]).Sum)
end.
<u>Пример</u>
Введите через пробел n,k,l: 15 6 11
-95 -70 45 -58 47 -7 40 -70 -91 42 -51 -76 71 -44 -32
s=-212
<span>Всего 3 красных кубика и Х – зеленых.
iк= 4 бит
</span><span>Pк=3/(3+Х)
1/p=2^</span>i<span>,
(3+Х)/3= 2</span>⁴<span>=16
3+Х =
48, следовательно Х = 45 - зеленых.
Ответ: всего 48 кубиков.</span>