Ответы на вопрос:
Const n=10; // длинна последовательности var a: array [1..n] of integer; sum,i: integer; begin sum: =0; for i: = 1 to n do begin readln(a[i]); sum: =sum+a[i]; end; writeln('сумма равна= ',sum); end.
Const n = 13; var a,b: array[1..n] of integer; i: integer; s1,s2: real; begin randomize; s1: =0; s2: =0; write('a('); for i: = 1 to n-1 do begin a[i]: =random(201)-100; write(a[i],',') end; a[n]: =random(201)-100; write(a[n],')'); writeln; write('b('); for i: = 1 to n-1 do begin b[i]: =random(201)-100; write(b[i],',') end; b[n]: =random(201)-100; write(b[n],')'); writeln; writeln; write('|a| = '); for i: = 1 to n do begin s1: =s1+a[i]*a[i]; end; s1: =sqrt(s1); writeln(s1); write('|b| = '); for i: = 1 to n do begin s2: =s2+b[i]*b[i]; end; s2: =sqrt(s2); writeln(s2); writeln; write('ближайшая точка: '); if s1 < s2 then writeln('a') else writeln('b') end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
sergei20045715.04.2023 23:19
-
kiryaegorov0305.04.2020 00:14
-
умник123567810.01.2021 07:00
-
NastiLife06.04.2021 14:02
-
TMTEMI27.12.2021 23:04
-
Sabriba07707.02.2022 07:49
-
pachev06.09.2021 04:24
-
мaкs200508.09.2020 04:51
-
schooll214.04.2020 10:39
-
bokshitskayan15.09.2022 09:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.