Среднее положительных элементов маcсива. delphi

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.

1) Переведем размер изображения из сантиметров в дюймы. Исходя из того, что 1 дюйм = 2,54 см., получаем: 10 см = 10 / 2.54 = 3.94 дюйма.

2) Размер изображения в дюймах равен: 3.94 * 3.94 = 15.52 дюйма.

3) Информационный объем графического файла определяется по формуле: l = K * i, где к - общее количество точек изображения, i - глубина цвета.

К = 1200 * 1200 * 15.52 = 22348800 (умножили разрешение сканера на размер изображения).

l = 22348800 * 24 бита = 536371200 бит.

Переведем в мегабайты: 536371200 бит = 536371200 / 8 = 67046400 байт.

67046400 байт = 67046400 / 1024 = 65475 килобайт.

65475 килобайт = 65475 / 1024 = 63,94 мегабайта.

ответ: 63,94, Мегабайта

Массив (в некоторых языках программирования также таблица, ряд, матрица, вектор) — структура данных, хранящая набор значений (элементов массива), идентифицируемых по индексу или набору индексов, принимающих целые (или приводимые к целым) значения из некоторого заданного непрерывного диапазона. Одномерный массив можно рассматривать как реализацию абстрактного типа данных — вектор.

Размерность массива — это количество индексов, необходимое для однозначной адресации элемента в рамках массива[1][2]. По количеству используемых индексов массивы делятся на одномерные, двумерные, трёхмерные и т. д.

Форма или структура массива — сведения о количестве размерностей и размере (протяжённости) массива по каждой из размерностей[3]; может быть представлена одномерным массивом[4].

Особенностью массива как структуры данных (в отличие, например, от связного списка) является константная вычислительная сложность доступа к элементу массива по индексу [5]. Массив относится к структурам данных с произвольным доступом.

В простейшем случае массив имеет константную длину по всем размерностям и может хранить данные только одного, заданного при описании, типа. Ряд языков поддерживает также динамические массивы, длина которых может изменяться по ходу работы программы, и гетерогенные массивы, которые могут в разных элементах хранить данные различных типов.