Составить программу, которая находит среднее арифметическое элементов непустого
однонаправленного списка вещественных чисел, заменяет все вхождения числа x на число y,
меняет местами первый и последний элементы списка, проверяет упорядочены ли числа в списке
по возрастанию.
232
447
Ответы на вопрос:
var
i,k: integer;
mas: array[1..10] of shortint;
begin
writeln('введите 10 чисел');
for i: =1 to 10 do
begin
read(mas[i]);
if mas[i]< 0 then inc(k);
end;
writeln('кол-во отрицательных = ',k);
end.
1. тип byte в pascal'е от 0 до 255 то есть там априори не может быть чисел < 0
2. я использовал знаковый byte (shortint) он от -128 до 127
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Пепечка03.11.2022 12:22
-
DiANa2407105.03.2021 12:27
-
Оалдв03.08.2021 08:18
-
Иисус123402.04.2021 21:25
-
Smilen201406.11.2020 07:29
-
nosanchuk1419.01.2023 13:21
-
chipolino55517.01.2020 07:31
-
melnicoff20.06.2021 19:34
-
Krikaiz15.07.2022 13:34
-
isheh09ow2mth09.02.2020 15:11
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.