1. Определите, какие числа будут выведены в результате выполнения следующего фрагмента программы: k := 1;
m := dat[k];
for i := 2 to 10 do if dat[i] < m then
begin
m := dat[i]; k := i;
end; writeln('m = ', m);
writeln('k = ', k);
(это фрагмент программы!)
2. Программисту было поручено написать программу нахождения суммы отрицательных элементов одномерного массива. Программист разработал программу, но допустил в ней одну ошибку. Текст программы с ошибкой представлен ниже:
program n1;
var
k, s: integer;
a: array [1..8] of integer;
begin
for k := 1 to 8 do readln(a[k]); s := 0;
for k := 1 to 8 do
if a[k] < 0 then s := s + a[1]; writeln(s);
end.
151
257
Ответы на вопрос:
Program n_58; var s: array[1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551); // площадь gn: array[1..10] of real; // густота населения k: array[1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800); // количество n: array[1..10] of string = ('великобритания', 'германия', 'греция', 'дания', 'испания', 'италия', 'польша', 'португалия', 'финляндия', 'франция'); i, j: integer; x: real; r: string; begin for i : = 1 to 10 do gn[i] : = k[i] / s[i]; for i : = 1 to 10 do for j : = i + 1 to 10 do if gn[i] > gn[j] then begin x : = gn[j]; gn[j] : = gn[i]; gn[i] : = x; r : = n[j]; n[j] : = n[i]; n[i] : = r; end; for i : = 1 to 10 do writeln(n[i], ' ', gn[i]: 0: 2); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MegaCrisp125.11.2021 21:30
-
djiner05.03.2022 12:51
-
xalyva13.04.2022 13:41
-
fggda9816.08.2022 11:18
-
sanyakryt10.01.2022 12:19
-
davas25511.04.2020 02:13
-
KaguraChan15.06.2022 13:51
-
Страус12355218.11.2020 17:53
-
ress12305.09.2021 17:15
-
lenatolkina08.01.2020 09:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.