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

2

Ответы и объяснения

2013-06-13T12:44:23+04:00

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.

  • Sky09
  • профессор
2013-06-13T16:17:02+04:00

Паскаль.

 

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.