<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(5).Aggregate(1.0,(a,b)->a*b).Println
end.
<u>Пример</u>
35.3 173.2 0.15 -2.62 7
-16819.50396
Const n=4; m=5;
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10
Не знаю как в паскале, но в си это называется динамические массивы и создаются они через указатели, тип элементов массива может быть любым. типом индекса в си и паскале может быть только integer, в других же языках могут быть ассоциативные массивы, индексом которых является строка(в php так)
Переводим числа в разных системах счисления в десятичную систему и ищем совпадения с заданными десятичными числами. Например, предполагаем, что 323 - это число в системе счисления с основанием 4. 323(4)=59(10). Не подходит. 323(5)=88(10). Подходит. Итак:
89=1121(4)
77=1001101(2)
61=2021(3)
91=231(6)
88=323(5)
1. 2^i=128
i=7
2. N=256 2^i=256 i=8 бит/1 пиксель (8*124*124)/2^13=15.06. Если нужно целое число, то 16.
3. 2*22*1000*8*124/2^23=15.6
4. 124 = 7C(16) = 1111100(2)
прямой код обратный дополнительный
01111100 10000011 10000011+1=10000100
