Uses crt;
const M = 100;
var a: array [1..M] of integer;
i, max, k, n: integer;
begin clrscr;
repeat
writeln('Введите количество элементов массива');
readln(n);
until (n <> 0) and (n>0);
for i := 1 to n do
begin
writeln('Введите [', i, '] элемент массива');
readln(a[i]);
end;
for i := 1 to n do
write(' ', a[i]);
writeln;
max := a[1];
for i := 2 to n do
if a[i] > max then max := a[i];
writeln(' max= ', max);
for i := 1 to n do
if a[i] = max then k := k + 1;
writeln(' k= ', k);
<span>end.</span>
При использовании 64 цветов для хранения одного пикселя необходимо log(2)64 = 6 бит.
Для всего изображения:
1024*768*6 бит = 1024*768*6 / 8 байт = 1024*768*6 / (8*1024) Кбайт = 576 Кбайт
9=1×9; 18=2×9; 27=3×9; ... 162=18×9
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
Writeln('S=',1.To(18).Select(i->1/(9*i)).Sum)
end.
<u><em>Результат</em></u>
S=0.388345342021813