Задание:
ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! Заданы массивы A и B чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен: суммеэтих массивов; минимальную из соответствующих элементов этих массивов.
Решение:
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.
Знаете другой ответ?