Составить программу на паскале.сформировать с датчика случайных чисел массива a[1..3,1..6], элементы которого находятся в промежутке от -20 до 20 .удалить n строку массива.
104
202
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin var k: =3; writeln('*** исходный массив ***'); var a: =matrrandom(k,6,-20,20); a.println(4); writeln(4*a.colcount*'-'); var n: =readinteger('какую строку удалить (1-'+k+')? '); assert(n.between(1,k),'введено неверное значение'); var r: =a.row(k-1); // последняя строка setlength(a,k-1,a.colcount); // теперь строк на одну меньше if n< k then begin for var i: =n-1 to k-3 do a.setrow(i,a.row(i+1)); a.setrow(k-2,r) end; writeln(4*a.colcount*'-'); a.println(4) end. примеры *** исходный массив *** -8 3 -10 -5 -8 11 14 -5 -19 -6 -19 -15 0 -11 11 3 -6 -12 какую строку удалить (1-3)? 1 14 -5 -19 -6 -19 -15 0 -11 11 3 -6 -12 *** исходный массив *** 11 -14 -3 18 19 -9 -11 19 8 20 -19 19 -20 13 3 -13 13 1 какую строку удалить (1-3)? 3 11 -14 -3 18 19 -9 -11 19 8 20 -19 19
Uses crt; var e,d,s,i,k: integer; begin k: =0; for i: =100 to 999 do begin e: =i mod 10; d: =(i div 10)mod 10; s: =i div 100; if (e=s) or ((e=d) and (e=s)) then inc(k); end; writeln(k); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
liza460811.09.2020 21:02
-
Lehanbratkov10.10.2020 21:40
-
Asil123121.01.2022 10:13
-
geometriya320.02.2023 18:23
-
semakina9725.03.2020 13:45
-
svpp30.06.2022 12:33
-
Georgeo19rus05.04.2023 15:59
-
катя487606.05.2022 08:45
-
violapi26.02.2022 13:34
-
muhkirill201703.09.2020 17:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.