Представьте числа в нормализованной экспоненциальной форме: а) 999, 98 б) 0, 00566 в) -3, 056

999,98 =  9,9998 * 10² = 9.9998e2

0,00566 =  5,66 * 10⁻³ = 5.66e-3

-3,056 = -3,056 * 10⁰ =  -3,056e0

 

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.

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

const

  n = 5;

  m = 10;

 

var

  a: array [1..n, 1..m] of real;  

  s, r: real;

  kol, i, j: integer;   //kol - количество чисел

 

begin

  writeln('введите r');

  readln(r);

  for i: = 1 to n do

  for j: = 1 to m do

  begin

    writeln('введите a[', i, ', ', j, ']');

    readln(a[i, j]);

    if a[i, j] > r then

    begin

      kol: = kol + 1;

      s: = s + a[i, j];

    end;

  end;

  s: = s / kol;

  writeln(kol, ' чисел > ', r);

  writeln('среднее арифметическое равно ', s);

end.