Решить ! заданы массивы 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.

Легкий

Объяснение:

Наднжда это к примеру когда ты хочешь победу, например ты надеешься на победу