ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА!

Question

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

Answer 1

38

dinex23

14 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: