estoy haciendo unos ejercicios en pascal, dice así:
programa que lea el número de legajo y el promedio de cada alumno de la facultad. La lectura finaliza cuando se ingresa el legajo -1, que no debe procesarse. Al finalizar la lectura, informar:
a. La cantidad de alumnos leída
b. La cantidad de alumnos cuyo promedio supera 6.5
Yo hice esto ya:
program eje6;
var
legajo, total:Integer;
promedio,m6:Real;
begin
Read(legajo);
Read(promedio);
total:=total+1;
while legajo > -1 do
begin
if promedio > 6 then
begin
Read(legajo,promedio);
m6:=m6+1;
total:=total+1;
end;
if promedio < 5 then
begin
Read(legajo,promedio);
total:=total+1;
end;
end;
WriteLn('alumnos leidos ',total-1);
WriteLn('mas de 6: ', m6)
end.
esto no informa, no suma, y despues del "-1" que sería el "legajo" tengo que poner el "promedio" lo tenia resuelto un poco, pero lo empecé de 0 y tengo eso.
total
en primer lugar ? Ej:total:=1
total
aca no afecta creo, me suma de 0 como tendria que ser si la inicializo