Написать программу для Pascal ABC.Дан массив действительных чисел,размерность которого N.Подсчитать,сколькоив нем отрицательных,положительных и нулевых элементов.
Answers & Comments
polka125
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.
Answers & Comments
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.