Задать вопрос
14 апреля, 06:16

Это в Паскале.

Первая задача: Дана последовательность чисел, оканчивающихся отрицательным числом. Найти среднее арифметическое введенных положительных чисел.

И вторая: Дана последовательность чисел, количество которых заранее не известно. Сколько чисел было введено до первого нуля?

Буду очень благодарен, если ответите.

+1
Ответы (1)
  1. 14 апреля, 08:27
    0
    {1}

    var

    i, n, s: integer;

    begin

    i : = 0;

    writeln ('Введите последовательность чисел, оканчивающихся отрицательным числом') ;

    repeat

    readln (n) ;

    if n > 0 then begin

    s : = s + n;

    i : = i + 1;

    end;

    until n < 0;

    writeln (s / i) ;

    end.

    {2}

    var

    i, n: integer;

    begin

    i : = 0;

    writeln ('Введите последовательность чисел, оканчивающихся 0') ;

    repeat

    readln (n) ;

    if n 0 then

    i : = i + 1;

    until n = 0;

    writeln (i) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Это в Паскале. Первая задача: Дана последовательность чисел, оканчивающихся отрицательным числом. Найти среднее арифметическое введенных ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы