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.
Поделитесь своими знаниями, ответьте на вопрос:
Решить ! заданы массивы 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.