Регистрация Спросить otvet5GPT
Алино4ка15
17.04.2021 02:33
Информатика
Есть ответ 👍

Напишите программу на Pascal: Напишите среднее значение целых положительных чисел, которые вводятся с клавиатуры (окончание ввода-ввод числа 0)

210
407
Посмотреть ответы 3

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

marvin4547
marvin4547
4,7(86 оценок)

//Pascal

var a,i,s,n:integer;

begin

 s:=0;

 n:=0;

 repeat

    readln(a);

    if a>0 then begin

       n:=n+1;

       s:=s+a;

    end;

 until a = 0;

 writeln('Сумма ',s:5,'  Среднее арифметическое ТАК) (Я НЕСОВСЕМ УВЕРЕН)

polinapetrova8
polinapetrova8
4,4(85 оценок)

--- PascalABC.NET 3.6.2 ---

begin

 ReadSeqIntegerWhile(p -> p <> 0).Where(p -> p > 0).Average.Println;

end.

Gibiskus2
Gibiskus2
4,4(41 оценок)
// pascalabc.net 3.0, сборка 1088 const   n=9;   m=7; var   a: array[1..n,1..m] of integer;   b: array[1..n] of boolean;   i,j,k: integer; begin   randomize;   writeln('*** исходный массив ***');   for i: =1 to n do begin       k: =0;       for j: =1 to m do begin           a[i,j]: =random(225)-112;           write(a[i,j]: 5);           if a[i,j]< 0 then inc(k)           end;       writeln;       b[i]: =k> 3   end;   writeln('*** строки, содержащие больше 3 отрицательных элементов ***');   for i: =1 to n do       if b[i] then write(i,' ');   writeln end. тестовое решение: *** исходный массив ***     89  -71    36  -25  -19    60  -28   -60  -35    20  112  -69    29    74       4  -23    -7  -15  107    64    -4   -82    91  102  -90    81    32  -64     41  -44    21    74    77  -77 -100   -38  -36  100      5  -42    54    46   -52    27  -86  -77    90    30    -2   -76  -14  -58    11    67  -91    59   -50    47  -47    12  -84  -76    11 *** строки, содержащие больше 3 отрицательных элементов *** 1 3 7 8 9

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS