Регистрация
10089675834075
15.02.2021 22:35
Информатика
Есть ответ 👍

Склавиатуры вводится 10 чисел.определить среднее арифметтческое всех чисел,которые больше первого. (паскаль)

228
323
Посмотреть ответы 2

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

rstksmirnov
rstksmirnov
4,8(19 оценок)

var

    i,n, pol: integer;   //pol - количество положительных чисел, n - количество всех чисел

    a,s: real;   //a- вводимое число, s - сумма положительных чисел

begin

  pol: = 0;   //обнуляем счетчик

  s: = 0;  

  writeln('введите количество чисел');

  readln(n);

  for i: = 1 to n do

  begin

    writeln('введите число');

    readln(a);

    if a > 0 then

    begin

      s: = s + a;

      pol: = pol + 1;  

    end;

  end;

  writeln('среднее арифметическое положительных чисел:   ', s / pol);   {среднее арифметическое равно сумме чисел делить на их количество}

end.

Aleksandra66611
Aleksandra66611
4,6(5 оценок)
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var (x,y): =readreal2('введите  координаты точки x и y: ');   if x=0 then begin       if y=0 then writeln('точка лежит в начале координат')       else writeln('точка лежит на оси ординат (y)');       exit       end   else       if y=0 then begin           writeln('точка лежит на оси абсцисс (х)');           exit           end;   if x> 0 then       if y> 0 then writeln('точка принадлежит i четверти')       else writeln('точка принадлежит iv четверти')   else       if y> 0 then writeln('точка принадлежит ii четверти')       else writeln('точка принадлежит iii четверти') end. пример введите  координаты точки x и y: 12.4 -7 точка принадлежит iv четверти

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