procedure Println(a:array of integer); var i:integer; begin for i:=0 to Length(a)-1 do Write(a[i],' '); Writeln end;
procedure Ex1(var a:array of integer; var nn,np:integer); var i:integer; begin nn:=0; np:=0; for i:=0 to Length(a)-1 do if a[i]<0 then begin a[i]:=0; Inc(nn) end else if a[i]>0 then begin a[i]:=1; Inc(np) end end;
var a:array of integer; i,n,kp,kn:integer; begin Randomize; Write('Количество элементов: '); Read(n); SetLength(a,n); for i:=0 to n-1 do a[i]:=Random(41)-20; Println(a); Ex1(a,kn,kp); Writeln('Отрицательных ',kn,', положительных ',kp); Println(a) end.
Во первых надо уточнять в задании о каком приложении/программе идет речь
Характеристики буду приводить для Фотошопа, лишнее потом можно будет убрать - размер холста (в наиболее удобных единицах) ширина и длина - маштаб - активный слой (по какому слою рисуем или взаимодействуем) - тип слоя - прочие характеристики слоя (их там много) - маска или не маска - каналы (например один из RGB каналов) - цветовое пространство (RGB, HSL, Lab, ..) и т.д. потому что там полно всяких прибамбасов