PROGRAM PINAKES1 IMPLICIT NONE CHARACTER(LEN=15), ALLOCATABLE::TOWN(:) INTEGER, ALLOCATABLE::TEMP(:) INTEGER N,I PRINT*, 'DOSE DIASTASI PINAKON' READ*, N ALLOCATE (TOWN(N), TEMP(N)) DO I=1, N READ*, TOWN(I), TEMP(I) END DO PRINT*, 'Πόλη', 'Θερμοκρασία' DO I=1, N PRINT*, TOWN(I), TEMP(I) END DO END PROGRAM PINAKES1
{}