810 = 10002,
910 = 10012,
1010 = 10102,
1110 = 10112.
Из чисел 9 и 10 выбираем число 10, поскольку оно является наибольшим.
Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
16 цветов.
256x1024 байт = 256x1024x8бит = 2097152
1024x512 = 524288
2097152/524288 = 4 бита. Память,для 1 пикселя.
2 в 4 степени - 16.
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>