Запешите величины иих значения, определяющие сдедующие свойства объекта: графический файл 1величина 2значение большой файл 1величина 2значение

1.пиксель-картина 2.размер-кол-во (гб,мб,

Const     n = 10; var     a: array[1..n] of integer;     i,b: integer; begin write('b = '); readln(b); write('введите массив: '); for i: = 1 to n do       read(a[i]); write('новый массив: '); for i: = 1 to n do       begin       a[i]: =a[i]-b;       write(' ',a[i])       end; end. const     n = 10; var     a: array[1..n] of integer;     i: integer; begin write('введите массив: '); for i: = 1 to n do read(a[i]); write('новый массив: '); for i: = 1 to n do       begin       a[i]: =a[i]-a[n];       write(' ',a[i])       end; end.

Var min,max,i,s,n: integer; begin randomize; write('введите диапазон: '); readln(min,max); if(min> max) then begin max: =max+min; min: =max-min; max: =max-min; end; write('введите количество чисел: '); readln(n); for i: =1 to n do begin n: = min + random(max-min); write(i,'-е число: ', n); if((n> 6) and (not odd( then begin s: =s+n; writeln(' (четное и > 6, сумма равна: ', s,')') end else begin write(' (не четное'); if(n> 6) then writeln(', но > 6)') else writeln(' и < 6)'); end; end; write('сумма четных чисел > 6 равна: ',s); end.