program diziler
implicit none
integer :: N, i
real :: arr(N), sum, mean, stddev, var
! Get the value of N
write(*,'(A)') "Enter the number of elements in the array:"
read(*,'(I)') N
! Get the elements of the array
write(*,'(A)') "Enter the elements of the array:"
do i = 1, N
read(*,'(F)') arr(i)
sum = sum + arr(i)
end do
! Calculate the mean
mean = sum / N
! Calculate the variance
do i = 1, N
var = var + (arr(i) - mean)**2
end do
var = var / N
! Calculate the standard deviation
stddev = sqrt(var)
! Print the results
write(*,'(A,F)') "Mean: ", mean
write(*,'(A,F)') "Standard deviation: ", stddev
end program diziler
it gives error like this
C:\Users\Teknik\Desktop\6.odev.F95(8) : error 270 - Missing width count for 'I' descriptor
C:\Users\Teknik\Desktop\6.odev.F95(13) : error 270 - Missing width count for 'F' descriptor
C:\Users\Teknik\Desktop\6.odev.F95(30) : error 270 - Missing width count for 'F' descriptor
C:\Users\Teknik\Desktop\6.odev.F95(31) : error 270 - Missing width count for 'F' descriptor
C:\Users\Teknik\Desktop\6.odev.F95(3) : error 542 - N appears in the dimension of a variable, yet is not a dummy argument, a variable available through USE or CONTAINS association, a COMMON variable, a PARAMETER, or