1) какие три числа следуют за числом 677(8) в 8-ричной системе счисления?

685,692,

Program maxmin; const  n = 50; var   arr : array [1..n] of integer;   i : integer;   min, max : real; begin writeln('массив: '); randomize; for i : = 1 to n do   begin   arr[i] : = random(100);   write(arr[i], ' ');   end; max : = arr[1]; min : = arr[1]; for i : = 1 to n do   begin   if min > arr[i] then min : = arr[i];   if max < arr[i] then max : = arr[i];   end;   writeln('сумма = ', min+max);   end.

Program chik; const n=15; var p: array[1..15]of real; i: integer; s: real; begin s: =0; for i: =1 to n do begin read(p[i]); if(i mod 2=0)and(p[i]< 0)then s: =s+p[i]; end; writeln(s); end.2)program gt; uses crt,graphabc; const n=7; var mac1,mac2,mac3: array[1..15]of real; i,k1,k2: integer; begink1: =0; k2: =0; for i: =1 to n dobeginread(mac1[i]); if(mac1[i]> 0)then begininc(k1); mac2[k1]: =mac1[i]; end; if(mac1[i]< 0)then begininc(k2); mac3[k2]: =mac1[i]; end; end; for i: =1 to n dowrite(mac1[i],' '); writeln; for i: =1 to k1 dowrite(mac2[i],' '); writeln; for i: =1 to k2 dowrite(mac3[i],' '); end.