Дан массив из N действительных чисел.
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
(в Pascal) — Правильный ответ на вопрос найдете ниже

Ответ: 10 взято для примера. В условии не сказано количество чисел, если у вас в массиве 100 чисел, то замените 10 на 100.

Ответ: и почему m: array[1..10] — это real, а не integer?

Ответ: так, это понятно, спасибо! 😉

Ответ: Потому что в условии сказано, что массив состоит их действительных чисел. Integer включает в только целые числа.

Ответ: а как программу проверить можно, что при запуске ввести?)

Ответ:

Замените число 10 в задании массива и циклах на нужное число действительных чисел (выделено жирным)

var

 i, a, b, c: integer;

 m: array[1..10] of real;

begin

 for i := 1 to 10 do readln(m[i]);

 for i := 1 to 10 do

 begin

   if m[i] > 0 then a := a + 1;

   if m[i] = 0 then b := b + 1;

   if m[i] < 0 then c := c + 1;

 end;  

 writeln(с, ‘ ‘, a, ‘ ‘, b);

end.