Решить ! заданы массивы a и b чисел (n=10) случайным образом. сформировать новый массив, каждый элемент которого равен: сумме этих массивов ; минимальную из соответствующих элементов этих массивов.

type ar10 = array[1..10] of integer; var a, b,c,d: ar10; i: integer; procedure show(a: ar10); begin      for i : = 1 to 10 do             write(a[i], ' '); end; begin      randomize;       for i : = 1 to 10 do begin             a[i] : = random(1000);             b[i] : = random(1000);             c[i] : = a[i] + b[i];             d[i] : = min(a[i] ,b[i]);       end;       show(a);       show(b);       show(c);       show(d); end.

1.var a, c, b: array[1..10] of integer; i: integer;

begin randomize; for i : = 1 to 10 do begin a[i] : = random(1000); b[i] : = random(1000); end; for i : = 1 to 10 do write(a[i], ' '); for i : = 1 to 10 do write(b[i], ' '); for i : = 1 to 10 do c[i] : = a[i] + b[i]; for i : = 1 to 10 do write(c[i], ' '); end.

 

2.

var a, c, b: array[1..10] of integer; i: integer; function min(a,b: integer): integer; beginif a> b then min: =b else min: =a; end; begin randomize; for i : = 1 to 10 do begin a[i] : = random(1000); b[i] : = random(1000); end; for i : = 1 to 10 do write(a[i], ' '); for i : = 1 to 10 do write(b[i], ' '); for i : = 1 to 10 do c[i] : = min(a[i],b[i]); for i : = 1 to 10 do write(c[i], ' '); end.

 

i = 1

    s = 0

      j = 2

          s = s + i + j = 0 + 1 + 2 = 3

      j = 3

          s = s + i + j = 3 + 1 + 3 = 7

i = 2

    s = 0

      j = 2

            s = s + i + j = 0 + 2 +2 = 4

      j = 3

            s = s + i + j = 4 + 2 + 3 = 9

i = 3

    s = 0

      j = 2

            s = s + i + j = 0 + 3 + 2 = 5

      j = 3

            s = s + i + j = 5 + 3 + 3 = 11

 

это и есть ответ:   s = 11

   

a - уровень продаж, а затем зп первого менеджераb - второго менеджераc - третьегоуровень продаж у всех разный.язык программирования: паскальvara, b, c: integer; beginreadln (a); if a < 500 thena : = 0.03 * a + 200; if (a > 500) and (a < 1000) thena : = 0.05 * a + 200; if a > 1000 thena : = 0.08 * a + 200; readln (b); if b < 500 thenb : = 0.03 * b + 200; if (b > 500) and (b < 1000) thenb : = 0.05 * b + 200; if b > 1000 thenb : = 0.08 * b + 200; readln (c);   if c < 500 thenc : = 0.03 * c + 200; if (c > 500) and (c < 1000) thenc : = 0.05 * c + 200; if c > 1000 thenc : = 0.08 * c + 200;   if (a > b) and (a > c) thena : = a +200; elseif b > c thenb : = b + 200; elsec : = c + 200; wreteln ('зп первого менеджера: ', a, '$'); wreteln ('зп второго менеджера:   ', b, '$');   wreteln ('зп третьего менеджера:   ', c, '$')end.