begin Write('Введите количество элементов (от 1 до 20): '); Readln(n); Writeln('Вводите через пробел элементы массива'); for i := 1 to n do begin Read(a[i]); a[i] := sqr(a[i]) end; Writeln('Результирующий массив:'); for i := 1 to n do Write(a[i]:0:4, ' '); Writeln end.
Тестовое решение:
Введите количество элементов (от 1 до 20): 5 Вводите через пробел элементы массива 1.3 2.7 -4 4.23 0 Результирующий массив: 1.6900 7.2900 16.0000 17.8929 0.0000
в 3 раза
Объяснение:
Т.к. изображение одно и тоже, то количество точек в них одинаковое (K).
i = 24 бит для p1.bmp
2^i = 256
i = 8 бит для p2.bmp
Для p1.bmp V = 24K
Для p2.bmp V = 8K
24 / 8 = 3
В 3 раза будет меньше информационный объём файла p2.bmp.
V = K * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей )
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
Задание2.
const
m = 20;{максимальное количество элементов}
var
a: array[1..m] of real;
i, n: integer;
begin
Write('Введите количество элементов (от 1 до 20): ');
Readln(n);
Writeln('Вводите через пробел элементы массива');
for i := 1 to n do
begin
Read(a[i]);
a[i] := sqr(a[i])
end;
Writeln('Результирующий массив:');
for i := 1 to n do Write(a[i]:0:4, ' ');
Writeln
end.
Тестовое решение:
Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000