Создать два одномерных массива размером n с генератора случайных чисел. заменить элемент, следующий за минимальным элементом второго массива, на минимальный элемент первого массива (если во втором массиве минимальных элементов несколько, то заменить после первого из них, если минимальный элемент – последний в массиве, то замену не производить, а вывести соответствующую надпись на pascalabc

141

482

Посмотреть ответы 3

Ответы на вопрос:

Никитка987

Информатика

4,7(12 оценок)

Const n=10; type ar=array[1..n] of integer; procedure p1(var x: ar); var i: integer; begin for i: =1 to n do x[i]: =random(51); end; procedure p2(h: char; var x: ar); var i: integer; begin writeln('',h,''); for i: =1 to n do write(x[i]: 4); writeln; end; procedure p3(var x: ar; var min,imin: integer); var i: integer; begin min: =x[1]; imin: =1; for i: =2 to n do if x[i]< min then begin min: =x[i]; imin: =i; end; end; var a,b : ar; m1,m2,im1,im2: integer; begin randomize; p1(a); p2('a',a); p3(a,m1,im1); writeln('m1=',m1,' im1=',im1); p1(b); p2('b',b); p3(b,m2,im2); writeln('m2=',m2,' im2=',im2); if im2< n then begin b[im2+1]: =m1; p2('b',b); end else writeln('минимальный элемент последний'); end. пример: 13 11 4 48 36 25 9 47 40 8 m1=4 im1=3 45 13 48 18 41 17 5 43 9 21 m2=5 im2=7 45 13 48 18 41 17 5 4 9 21

kelaruu

Информатика

4,6(75 оценок)

Const n=10; var a,b: array [1..n] of integer; i,min1,min2,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(10); b[i]: =random(10); end; writeln (a); writeln (b); writeln; min1: =1000; min2: =1000; for i: =1 to n do begin if a[i]< min1 then min1: =a[i]; if b[i]< min2 then begin min2: =b[i]; k: =i end; end; if k< n then begin b[k+1]: =min1; writeln (a); writeln (b); end else writeln ('минимальным является последний элемент'); end. примеры: 1) [4,5,2,2,7,3,8,6,8,6] [5,5,2,2,3,7,9,9,4,1] минимальным является последний элемент 2) [0,1,7,3,1,1,0,1,6,1] [8,3,8,0,7,2,1,4,0,9] [0,1,7,3,1,1,0,1,6,1] [8,3,8,0,0,2,1,4,0,9] ps: менять n можно в описании константы