Решить ! заданы массивы 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.
При исследовании и аналитической деятельности формируется профессиональная компетентность .
Популярно: Информатика
-
daniilkornev0515.11.2022 05:34
-
Школьниқ15.07.2022 21:25
-
Galya0324.01.2021 07:00
-
IDONTNONOTHING22.11.2020 09:34
-
baby13403.11.2022 11:55
-
juliakovta17.02.2021 02:34
-
юля276029.06.2023 16:59
-
Artem677624.05.2022 20:35
-
DarKerThanBlaCK3401.11.2021 01:50
-
varavarlamova1918.11.2022 21:41