Написать программу для pascal abc.дан массив действительных чисел,размерность которого n.подсчитать,сколькоив нем отрицательных,положительных и нулевых элементов.

110

457

Посмотреть ответы 2

Ответы на вопрос:

alexnatur

Информатика

4,6(5 оценок)

Program aaa; var a,b,c,n,i: longint; m: array[1..1000000] of real; begin read(n); // for i: =1 to n do //если считывать массив не нужно, то удалить read(m[i]); // a: =0; b: =0; c: =0; for i: =1 to n do begin if m[i]> 0 then inc(a); if m[i]=0 then inc(b); if m[i]< 0 then inc(c) end; writeln('положительных элементов: ',a); writeln('нулевых элементов: ',b); writeln('отрицательных элементов: ',c) end.