Ejercicio 1: Contar temperaturas bajo cero

Escribir un programa que lea 5 valores de temperatura, y escriba el número de veces que estuvo bajo 0º.

PROGRAM EJER_002;
Uses Crt;
var 
  temp, i, cont: Integer;
Begin
  WRITELN('Introduzca 5 valores de temperatura:');
  WRITELN;
  cont := 0;
  For i := 0 to 4 do
  Begin
    WRITE('Valor ', i + 1, ' : '); {i + 1 mostrará valores del 1 al 5}
    Readln(temp);
    If temp < 0 then
      inc(cont); {cont = cont + 1}
  End;
  WRITELN;
  WRITE('La temperatura  Seguir leyendo “Ejercicios resueltos en Pascal: Arrays, Registros, Bucles y Condiciones” »