duvida no pascal..

[Garfield-PT-PT]

Boas pessoal !

Eu estou na aula de programação , fiz um programa com os arrays, e tenho aqui um problema...

----------------------------------------------------------------------------------------
program ftm4exe6;
uses crt;

var notas: array [1..2] of integer;
nome: array[1..4] of string ;
i, j, n, contapos, contaneg:integer;

begin
n:=1;
clrscr;
contapos:= 0;
contaneg:= 0;
for i:=1 to 4 do
for j:=1 to 2 do
begin

write('Insira o ',n,'. nome: ');
readln (nome);

write('Insira a nota do ',nome,': ');
readln (notas[j]);

if notas[j] >= 10 then contapos:=contapos + 1
else contaneg := contaneg + 1 ;

end ;
writeln ('A nota do ',nome,' e de: ',notas[j]);

writeln ('Foram inseridos ',contapos,' notas positivas');
writeln ('Foram inseridos ',contaneg,' notas negativas');


readln;

end.

-------------------------------------------------------------------------------------

Segundo a ficha , tenho de pedir o nome e a nota, que depois na saida tenho de dizer a nota de cada aluno que pus.


Alguem ajuda ai ?

Abraços [[[]]]

 

[syqe]

Não percebi o tamanho dos arrays.

Utilizando essa metodologia, queres dois arrays com o mesmo tamanho N (número máximo de alunos), um de Integer outro de String.
Corres o ciclo N vezes e preenches os dois arrays em cada iteração, um com o nome outro com a nota.

No final corres de novo o ciclo N vezes e imprimes os dois arrays.

Era isso?