Ответы на вопрос:
// pascalabc.net 3.2, сборка 1382 от 06.02.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк в массиве: '); var m: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,-99,99); a.println(4); writeln(4*a.colcount*'-'); var p: =readinteger('номер строки для формирования вектора: '); var x: =a.row(p-1); x.println end. пример: количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив [6,9] *** 25 -94 49 38 93 6 76 61 -79 49 25 -82 -43 -92 -51 -78 62 4 -31 43 -78 -34 48 19 -17 -26 -98 82 44 -43 36 82 50 -14 39 -87 88 -25 12 -94 -96 68 7 9 -28 96 38 -15 -77 -99 -78 -60 -21 57 номер строки для формирования вектора: 4 82 44 -43 36 82 50 -14 39 -87
Program prog; uses crt; var a: array [0..100, 0..100] of integer; x: array [0..100] of integer; n,m,p,i,j: integer; begin; clrscr; randomize; write('n = '); readln(n); write('m = '); readln(m); write('p = '); readln(p); writeln; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: = random(101)-50; write(a[i,j]: 5); if (i=p) then x[j]: = a[i,j]; end; writeln; end; writeln; for j: =1 to m do write(x[j]: 5); end.
Program vladimir37005; const n=5; var a: array[1..n] of integer; i,min,k: integer; begin for i: =1 to n do begin write('a[',i,']='); read(a[i]); end; min: =a[1]; k: =1; for i: =1 to n do if (a[i] < min) then begin min: =a[i]; k: =i; end; for i: =1 to n do if (a[i] < 0) and (a[i] > min) then begin min: =a[i]; k: =i; end; a[k]: =0; for i: =1 to n do write(a[i],' '); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Данара2429.04.2021 23:22
-
extysq300005.01.2020 07:46
-
немогусделать107.05.2021 15:47
-
шпион22370901.11.2020 09:38
-
islamkazirbaev22.02.2021 03:10
-
MilkyWay335502.08.2021 18:52
-
dgamal0517.10.2020 23:03
-
mihscka060524.06.2023 02:10
-
den1323209.06.2021 23:53
-
N23N07.05.2020 10:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.