Написала программу с подпрограммой на паскале, но что-то нет так. в компьютере не работает найти и исправить ошибку. : дано: массивы i(11), k(11). сформировать массив м (11), элементы которого вычисляются по формуле m j= i j+ k j (j=1,11). массивы i,k предварительно реорганизовать следующим образом: на первом месте, в данных массивах должен стоять элемент с минимальным значением . поиск минимального элемента массива и реорганизацию массива оформить в виде подпрограммы. программа: program lab5; type masiv=array[1..11]of integer; var i,k,m: masiv; n,x1,x2: integer; procedure vivod(n: integer; m: masiv); var j: integer; begin for j: =1 to n do write(m[j],''); writeln; end; procedure vvod(n: integer; var vt: masiv); var i,j: byte; min,tmp: integer; begin j: =1; min: =vt[1]; for i: =2 to n do if (min> vt[i]) then begin min: =vt[i]; j: =i; end; tmp: =vt[1]; vt[1]: =min; vt[j]: =tmp; end; procedure poisk(var vt: masiv); var j: =byte; begin for j: =1 to n do write(vt[j]: 6); writeln(' '); end; begin writeln('дано: '); randomize; for j: =1 to n do begin i[j]: =random(-56,40); k[j]: =random(-56,40); end; write('массив i[',max,']: '); vivod; masiv(i); write('массив k [',max,']: '); vivod; masiv (k); reorganize; masiv(i); reorganize; masiv(k); write('m[j]=i[j]+k[j] '); for j: =1 to n do m[j]: =i[j]+k[j]; writeln('массив m[j,max,]: '); end.

116

241

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

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

Mariya1616161

Информатика

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

Исправленная программа: program lab5; const n=11; type masiv=array[1..n]of integer; var l,k,m: masiv; i: integer; procedure vivod(mas: masiv); var i: integer; begin for i: =1 to n do write(mas[i],' '); writeln; end; procedure new_mas(var mas: masiv); var i,j: byte; min: integer; begin j: =1; min: =mas[1]; for i: =2 to n do if (min> mas[i]) then begin min: =mas[i]; j: =i; end; writeln('min = ',min); mas[j]: =mas[1]; mas[1]: =min; end; begin writeln('дано: '); randomize; for i: =1 to n do begin l[i]: =random(-56,40); k[i]: =random(-56,40); end; write('массив l[',n,']: '); vivod(l); new_mas(l); write('измененный массив l[',n,']: '); vivod(l); write('массив k [',n,']: '); vivod(k); new_mas(k); write('измененный массив k[',n,']: '); vivod(k); for i: =1 to n do m[i]: =l[i]+k[i]; write('массив m[',n,']: '); vivod(m); end. пример: дано: массив l[11]: 4 -34 -2 3 -53 -53 38 1 -33 -3 11 min = -53 измененный массив l[11]: -53 -34 -2 3 4 -53 38 1 -33 -3 11 массив k [11]: -43 -18 -8 -9 34 -34 -49 40 -47 -22 9 min = -49 измененный массив k[11]: -49 -18 -8 -9 34 -34 -43 40 -47 -22 9 массив m[11]: -102 -52 -10 -6 38 -87 -5 41 -80 -25 20

insaf1282

Информатика

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

Вчем вопрос

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.