ilplakhotin8734
?>

Даны два числа a, b, c. найти их среднее арифметическое.

Информатика

Ответы

Суханова1532
Сложить их и разделить на их кол-во
(а+b+c) : 3
julkamysh9
Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3
Дудина895

var

  number, N, npol, notr, n0, i: integer;  {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

 

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

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

    readln(number);

    if number < 0 then notr:= notr + 1;

    if number > 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Даны два числа a, b, c. найти их среднее арифметическое.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

nnbeyo
Lapushkin1988
Герасимова107
Исакова-Александрович511
Проверьте и доделайте, если сможете)
mariia39
Бурмистров_Салагин1074
Найти ошибку в программе и исправить её
Константин
yusinelnik8
А Дзукаев1562
Sergei248
Devaunka40
Ragim777hazarovich
Шиморянов Мария1866
katdavidova91
vantoslaltd