Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1234578
Language: PASCAL
Code:
program HelloWorld;
type mas = array[1..n] of real;
var      a : mas;
     pol, otr, nol, i, n : integer;
begin
pol:=0;
otr:=0; 
nol:=0;
writeln('введите размерность массива');
Readln(n);
for i := 1 to n do
begin
readln ( a[i] );
if a[i]=0
then nol:=nol+1
else if a[i]>0
then pol:=pol+1
else otr:=otr+1
end;
writeln('кол-во пол-ных равно ', pol);
writeln('кол-во отр-ных равно ', otr);
writeln('кол-во нулевых равно ', nol);
end.          
Comments: