Ответы на вопрос:
Const k=10; type arr=array[1..k] of integer; procedure p1(var x: arr); var i: integer; begin for i: =1 to k do begin x[i]: =random(30)-15; write(x[i]: 3); end; writeln; end; function f1(var x: arr): integer; var i,s: integer; begin s: =0; for i: =1 to k do if x[i]< 0 then s: =s+x[i]*x[i]; f1: =s; end; var a,b: arr; m,n: integer; x: real; begin writeln('a: '); p1(a); writeln('b: '); p1(b); m: =f1(a); n: =f1(b); writeln('m = ',m,' n = ',n); x: =m/(n-m); writeln('x = ',x: 6: 4); end. пример: a: -13 7-11 11 -3 4 13 3 -1 2 b: 8 -2 5 10 9 8 -8 12 7-13 m = 300 n = 237 x = -4.7619
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Damirkair200305.06.2021 01:45
-
innapuna822.05.2023 23:09
-
Igarexaaa122.04.2021 17:05
-
samayazeynalova0202.02.2020 08:11
-
karinasing26.10.2020 18:49
-
Давидка1205.01.2023 01:18
-
arslando02.11.2020 14:50
-
ArseniyZnanija14.06.2021 21:36
-
12345687654321ytrye28.02.2020 03:47
-
VaniLikaK21.12.2020 17:26
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.