Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
В растровой графике при увеличении всегда есть потеря информации и «ступенчатый эффект», вес файла зависит от разрешения и глубины цвета, закодировать можно любое изображение, оно состоит из пикселей, изображение которое мы видим на экране компьютера/телефона использует цветовую палитру RGB (Red Green Blue), при печати используется палитра CMYK (Cyan Magenta Yellow KeyColour(чёрный)) векторная графика использует графические примитивы, закодировать можно не все изображения, при увеличении нет потери информации, не такая хорошая передача цвета как в растровой графике, тк используются примитивные цвета
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку