Exercício 3!

Neste programa dado um numero n de outros o computador pede a nota de 

 cada aluno e conta quantos tem nota positiva.

Program numero;

Var n:integer;

Nota: Real;

Begin

Writeln(‘Introduza um numero n de alunos’);

Readln(n);

Writeln(‘insira a nota do aluno’);

Readln(nota);

For n to nota do

Begin

Writeln(‘o nº de notas negativas foram:’,notas);

Writeln(‘o nº de notas positivas foram:’,notas);

End.