Запишите наименьшее основание системы счисления, в которой могут быть записаны следующие числа: 1) 9, 122, 1100, 14. 2) 100, 112, 1004, 4444. 3) 1, 7, 222, 102.

1) максимальная цифра 9 => основание 10 2) максимальная цифра 4 => основание 5 3) максимальная цифра 7 => основание 8

Первое: program r;       var a: array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum: integer;       begin;       for i: =0 to 8 do               if a[i]> 0 then begin;                       sum: =sum+a[i];                       l: =l+1;               end;       for i: =0 to 8 do               writeln('a[',i,'] = ', a[i]);       write('сумма положительных элементов равна ',sum,', а из количество ',l); end. второе: program t;       var d: array [0..40] of integer; l,x: integer;       begin;       for x: =0 to 40 do begin;               d[x]: =45*x+15;               if d[x] mod 2 = 1 then l: =l+1;       end;       write('кол-во нечётных элементов ',l); end. третье: program y;       var p: array [0..25] of real; k: integer; avg: real; begin;       for k: =0 to 25 do begin;               p[k]: =7*k+3*k/15;               avg: =avg+p[k];       end;       avg: =avg/26;       write('среднее значение элементов массива ', avg); end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arr(-6,7,45,-12,2,7,-15,0,64);   var kp: =0; var sp: =0;   for var i: =0 to a.length-1 do begin       writelnformat('a[{0}]={1}',i,a[i]);       if a[i]> 0 then begin kp+=1; sp+=a[i] end       end;   writeln('сумма ',kp,' положительных элементов равна ',sp) end. результат a[0]=-6 a[1]=7 a[2]=45 a[3]=-12 a[4]=2 a[5]=7 a[6]=-15 a[7]=0 a[8]=64 сумма 5 положительных элементов равна 125 2 begin   writeln(seqgen(40,x-> 45*x+15,1).where(x-> x.isodd).count); end. результат 20 3 begin   writeln(seqgen(25,k-> 7*k+3*k/15,1).average); end. результат 93.6