<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, 20, 30);
a.Println;
var p := 1;
foreach var t in a do
if t = 25 then p *= 25;
if p = 1 then p := 0;
p.Println;
end.
<h2>24 27 25 24 27 21 27 25 26 25</h2><h2>15625 </h2>
.........характерные черты?
Сначала считаем количество пикселей 1024*768=786432
затем по формуле N=2^i находим количество бит на 1 пиксель
8=2^i ⇒ i=3, количество пикселей умножаем на глубину цвета (i)
786432*3=2359296 бит / 8 = 294912 байт / 1024 = 288 кбайт
Ответ: 288 КБайт
Const
nn = 50;
var
a: array[1..nn] of integer;
b: array[1..10] of integer; { для номеров минимальных четных }
n, i, km, min, max, t1, t2: integer;
begin
Randomize;
Write('Укажите количество элементов массива (не более 50): ');
Readln(n);
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(76) - 43;
Write(a[i]:4);
end;
Writeln;
Writeln('1. Массив со сдвинутыми влево на 2 элементами');
t1 := a[1]; t2 := a[2];
for i := 1 to n - 2 do
begin
a[i] := a[i + 2];
Write(a[i]:4);
end;
a[n - 1] := t1; a[n] := t2;
Writeln(a[n - 1]:4, a[n]:4);
Writeln('2. Минимальные четные элементы массива');
min := 100;
for i := 1 to n do
if (i mod 2 = 0) then
if min > a[i] then begin min := a[i]; km := 1; b[km] := i end
else if min = a[i] then begin km := km + 1; b[km] := i end;
Write('Значение: ', min, ', индексы:');
for i := 1 to km do Write(b[i]:3);
Writeln;
Writeln('3. Поменять местами максимальный и последний элементы массива');
max := -100;
for i := 1 to n do
if max < a[i] then begin max := a[i]; b[1] := i end;
t1 := a[b[1]]; a[b[1]] := a[n]; a[n] := t1;
for i := 1 to n do Write(a[i]:4);
Writeln;
Writeln('4. Найти среднее арифметическое элементов массива');
t1 := 0;
for i := 1 to n do t1 := t1 + a[i];
Writeln('Среднее арифметическое равно ', t1 / n)
end.
<em><u>Тестовое решение:</u></em>
Укажите количество элементов массива (не более 50): 30
Исходный массив
31 -41 -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9
1. Массив со сдвинутыми влево на 2 элементами
-18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 31 -41
2. Минимальные четные элементы массива
Значение: -43, индексы: 10 24
3. Поменять местами максимальный и последний элементы массива
-18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 -41 31
4. Найти среднее арифметическое элементов массива
Среднее арифметическое равно -5.4
