programas2

Se realiza un examen, se piden las notas del número de alumnos
introducidos por el usuario, las cuales pueden ser únicamente enteras
entre 0 y 10. Debe decirse cuantos 0, 5 y 10 han aparecido.También
deben decirse las notas introducidas que no sean 0, 5 o 10.


PROGRAM EJER_003;
Uses Crt;
var cero, cinco, diez: Integer;
var nota, i, alumnos: Integer;
var notas_no:Array [1..30] of Integer;

Begin
ClrScr;

WRITE('Introduzca el numero de alumnos: '); READLN(alumnos);
WRITELN;

WRITELN('Introduzca las calificaciones: (en valores enteros) ');WRITELN;
For i := 1 to alumnos do
Begin
WRITE('Alumno: '); READLN(nota);
If nota = 0 then inc(cero)
else if nota = 5 then inc(cinco)else if nota = 10 then inc(diez)
else
notas_no[i] := nota;
End;

WRITELN;
WRITE('Ha habido ',cero);
If cero = 1 thenWRITELN(' cero.') else WRITELN
(' ceros.');
WRITE('Ha habido ',cinco);
If cinco = 1 then WRITELN(' cinco.') else WRITELN
(' cincos.');
WRITE('Ha habido ',diez);If diez = 1 then WRITELN(' diez.') else WRITELN
(' dieces.');
WRITELN;
WRITELN('Las notas aparecidas que no son 0, 5 o 10 son: ');
For i := 1 to i DOIF notas_no[i] <> 0 then WRITE(notas_no[i],', ');
END.

Escribir un programa en Pascal que almacene en un array de registros
los nombres de los alumnos, sus notas parciales y finales. Hallarla
nota media y mostrar un mensaje de APTO si el alumno supera o iguala la
calificación de 5 o NO APTO si no lo alcanza. Hacerlo para un
número de 5 alumnos.


PROGRAM EJER009;
Uses Crt;
Constnumalumnos = 5;

Type tnotas = record
nombre2 : String;
n_parcial2, n_final2: Real; {Nota parcial y final}
end;
{Hacemos una fila...