begin Randomize; Write('Введите значение N -> '); Readln(n); Write('Элементы массива: '); m := 0; for i := 1 to k do begin x[i] := Random(n + 1) + 1; m := m + x[i]; Write(x[i]:4); end; Writeln; Writeln('Среднее арифметическое равно ', m / k:0:4) end.
Тестовое решение:
Введите значение N -> 50 Элементы массива: 22 31 1 35 18 41 1 35 46 12 48 27 35 37 29 Среднее арифметическое равно 27.8667
Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель. Задача 1. N=2^4=16 цветов.
Задача 2. N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.
Задача 3. 65536 это 2^16⇒требуется 16 бит или 2 байта.
Задача 4. 1. Узнаем общее количество пикселей 1280*1024=1310720 2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб ответ: 5 Мб
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(15,-28,25); a.Println; Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q)); Writeln('Положительных элементов: ',a.Where(t->t>0).Count); var imin:=a.IndexMin; Writeln('Номер минимального элемента- ',imin+1, ', его значение равно ',a[imin]) end.
Пример 4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21 П = -447760579166208000 Положительных элементов: 8 Номер минимального элемента- 7, его значение равно -28
k = 15;
var
x: array[1..k] of integer;
i, n, m: integer;
begin
Randomize;
Write('Введите значение N -> ');
Readln(n);
Write('Элементы массива: ');
m := 0;
for i := 1 to k do
begin
x[i] := Random(n + 1) + 1;
m := m + x[i];
Write(x[i]:4);
end;
Writeln;
Writeln('Среднее арифметическое равно ', m / k:0:4)
end.
Тестовое решение:
Введите значение N -> 50
Элементы массива: 22 31 1 35 18 41 1 35 46 12 48 27 35 37 29
Среднее арифметическое равно 27.8667