Создать массив b 7 элементов в интервале от 0 до 10 , заменить все элементы кратные 3 на сумму элементов массива.

var a: array[1..7]of integer; i,s: integer; beginfor i: =1 to 7 do begin a[i]: =random(9)+1; s: =s+a[i]; end; for i: =1 to 7 do write(a[i],' '); writeln; for i: =1 to 7 do if a[i] mod 3=0 then a[i]: =s; for i: =1 to 7 do write(a[i],' '); end.

При последовательном соединении сопротивление цепи будет равно сумме сопротивлений. uses crt; var r: array [1..10000] of integer;     n,x,rsum: integer; begin       rsum: =0;       write('n='); readln(n);       for x: =1 to n do       begin           write('r',x,'=');           readln(r[x]);           rsum: =rsum+r[x];       end;       writeln('r=',rsum); end.      

Uses crt; const n=5;           m=5; var a: array [1..n,1..m] of integer;     x,y,sum: integer; begin       sum: =0;       for x: =1 to n do           for y: =1 to m do           begin               read(a[x,y]);               if (x=1) or (x=3) then sum: =sum+a[x,y];           end;       writeln('sum=',sum); end.