Регистрация Спросить otvet5GPT
silvia16
31.05.2022 07:19
Информатика
Есть ответ 👍

Нужно! pascal введите с клавиатуры одномерный массив p(t), элементами которого являются положительные и отрицательные числа. определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. сформируйте новый массив r(f), состоящий из элементов массива p(t), которые больше найденного частного.

116
427
Посмотреть ответы 2

Ответы на вопрос:

Polllina2209
Polllina2209
4,8(7 оценок)
Uses crt; var p,r: array [1..10000] of real;     x,y,t,f,k: integer;     sum,sr,ch,min: real; begin       sum: =0; k: =0; f: =1;       write('t='); readln(t);       for x: =1 to t do       begin           write('p[',x,']: ');           readln(p[x]);       end;       min: =p[1];       for x: =1 to t do           if p[x]> 0 then begin             sum: =sum+p[x];             inc(k);           end;       for x: =1 to 9 do           if p[x]< min then min: =p[x];       sr: =sum/k;       ch: =min/sr;       for x: =1 to t do           if p[x]> ch then begin             r[f]: =p[x];             inc(f);           end;       writeln;       for y: =1 to f-1 do           writeln('r[',y,']: ',r[y]);       readln; end.
Vikaaaa32
Vikaaaa32
4,5(47 оценок)
Var s: string;     i,sum: integer; // объявление переменных begin             // начинаем программу writeln('vvedite chislo'); // вывод текста readln(s); // ввод текста sum: =0; // присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0. for i: =1 to length(s) do if s[i]='0' then sum: =sum+1; // запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. и проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1. writeln(sum); // вывод суммы end. // конец программы

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS