Question

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

Answer 1

Замените число 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.

Answer 2

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

Answer 3

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

Answer 4

так, это понятно, спасибо! ;)

Answer 5

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

Answer 6

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