Как найти сумму элементов 1 строки? program sbb; uses crt; var i, j, s: integer; a: array[1..5, 1..10] of integer; begin for i: =1 to 5 do begin for j: =1 to 10 do begin random(50); a[i, j]: =random(50); write(' '); write(a[i, j]); end; writeln end;

Const k = 13; var a: array[1..k] of integer; i,mx,mn: integer; begin write('исходный массив: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ');       end; writeln; mx: =a[k]; mn: =a[k]; for i: = 1 to k-1 do       begin       if a[i]> mx then mx: =a[i];       if a[i]< mn then mn: =a[i];       end; a[1]: =mn; a[k]: =mx; write('обработаный массив: '); for i: = 1 to k do       write(a[i],' ') end. const k = 13; var a,b,c: array[1..k] of integer; i: integer; begin write('первый массив: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ');       end; writeln; write('второй массив: '); for i: = 1 to k do       begin       b[i]: =random(21)-10;       write(b[i],' ');       end; writeln; write('третий массив: '); for i: = 1 to k do       begin       c[i]: =a[i]+b[i];       write(c[i],' ')       end; end.

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('вводите: ');   if s=s.where(s-> s in ['0'..'7']).joinintostring then begin       var n: biginteger=0;       var p: biginteger: =1;       for var i: =s.length downto 1 do begin           n: =n+(s[i].todigit)*p;           p*=8           end;       if n mod 5=0 then           writeln('текст является записью восьмеричного числа, кратного 5')           else writeln('текст является записью восьмеричного числа, не кратного 5')       end   else writeln('текст не является записью восьмеричного числа') end. пример вводите: 26343553 текст является записью восьмеричного числа, кратного 5