Задать вопрос
15 июня, 13:21

С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9

+3
Ответы (2)
  1. 15 июня, 14:14
    0
    Паскаль.

    uses crt;

    var

    a, s, i, k:integer;

    begin

    s:=0; k:=0;

    for i:=1 to 13 do

    begin

    write ('Введите ', i,' число: ') ; read (a) ;

    if a<9 then

    begin

    s:=s+a; k:=k+1;

    end;

    end;

    write ('Среднее арифметическое чисел, меньших 9: ', s/k) ;

    end.
  2. 15 июня, 16:29
    0
    var

    i : integer;

    val: integer;

    sum: integer;

    cnt: integer;

    begin

    sum:=0;

    cnt:=0;

    for i:=1 to 13 do

    begin

    readln (val) ;

    if (val<9) then

    begin

    cnt : = cnt + 1; 11

    sum : = sum + val;

    end;

    end;

    writeln (sum/cnt) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы