Площадь изображения 10*10=100 см2, обозначение dpi разшифровывается как dot per inch - точек на дюйм, дюйм у нас 2,5 см, а квадратный д.йм соответственно 2,5*2,5=6,25 см2 т.о. наше изображение содержит 100/6,25=16 дюйм2 в каждом кв.дюйме ц нас 1200*1200=1440000 точек, а т.к. а все изображение соответственно будет приобразовано в 1200*1200*16 = 23040000 точек каждая точка кодируется 24 битами или 3 байтами, т.е. полный объем изображения будет 69120000 байт или 67500 килобайт или 65,91796875 Мега байт
1) var a:array [1..10] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 10 do begin a[i]:=random(100)-50; write (a[i],' '); if a[i] < 0 then sum:=sum+a[i]; end; writeln; writeln ('Summa: ',sum); readln; end.
2) var a:array [1..10] of integer; i,max,index:integer; begin for i:=1 to 10 do begin write ('A[',i,'] = '); readln (a[i]); end; max:=a[1]; index:=1; for i:=2 to 10 do if a[i] > max then begin max:=a[i]; index:=i; end; writeln ('Max: ',max,'.Index: ',index); readln; end.
3) var a:array [1..10] of integer; max,min,i,temp:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(50); write (a[i],' '); end; writeln; max:=1; min:=1; for i:=2 to 10 do if a[i] > a[max] then max:=i else if a[i] < min then min:=i; writeln ('Max: ',a[max]); writeln ('Min: ',a[min]); temp:=a[min]; a[min]:=a[max]; a[max]:=temp; for i:=1 to 10 do write (a[i],' '); end.
