Придумайте новый вид информационных услуг.

Корректировка какой либо информации(услуга по какой либо информации(текст,секрет,код))

Const     n = 10; var     a: array[1..n] of integer;     i,max,s: integer; begin randomize; s: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(' ',a[i]);       end; writeln; max: =1; for i: = 2 to n do       if a[i]> a[max] then max: =i; writeln('max = a[',max,'] = ',a[max]); for i: = max+1 to n do       s: =s+a[i]; writeln('сумма элементов, стоящих за максимальным: ',s) end. пример: исходный массив: -4 10 7 5 6 10 -5 -8 -5 3 max = a[2] = 10 сумма элементов, стоящих за максимальным: 13

Program pas; const     n = 14; var     a: array[1..n] of integer;     i,max,min: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(90)+1;       write(' ',a[i]);       end; writeln; max: =1; min: =1; for i: = 2 to n do       begin       if a[i]> a[max] then max: =i;       if a[i]< a[min] then min: =i;       end; writeln('max(a) = a[',max,'] = ',a[max]); writeln('min(a) = a[',min,'] = ',a[min]) end. пример: исходный массив: 66 70 88 36 30 11 53 1 57 77 6 40 65 46 max(a) = a[3] = 88 min(a) = a[8] = 1