Дан массив из N действительных чисел.
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
(в Pascal)
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
(в Pascal)
More Questions From This User See All
Answers & Comments
Замените число 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.