Вцветовой модели rgb используется 8 цветов. фотографию размером 220 х 100 пикселей сохранили в виде несжатого файла с использованием rgb кодирования. определите в байтах размер получившегося файла.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandom(10,-20,20); a.Println; Writeln('Сумма элементов ',a.Sum); Writeln('Произведение элементов ',a.Aggregate(1,(m,n)->m*n)); Writeln('Сумма четных чисел ',a.Where(x->x.IsEven).Sum); end.
Пример 13 18 9 -4 -13 5 -9 1 16 -5 Сумма элементов 31 Произведение элементов 394243200 Сумма четных чисел 30
Задание 4
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandom(ReadInteger('N='),-20,20); a.Println; Writeln('Максимальный элемент A[',a.IndexMax+1,']=',a.Max); Writeln('Минимальный элемент A[',a.IndexMin+1,']=',a.Min); end.
Пример N= 13 12 7 13 8 -19 -19 -2 3 11 8 -3 -1 3 Максимальный элемент A[3]=13 Минимальный элемент A[5]=-19
176000:8 = 22000 байт