Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
dimension a(30,2)
real a,x,y,r,sr,s
integer i,j,n,k
write(*,*)'Vvedite razmer massiva N'
read(*,*)n
write(*,*)'Vvedite massiv'
write(*,*)'Vvedite koordinati X i Y'
read(*,*)a
write(*,*)'Vvedite radius kruga'
read(*,*)r
i=1
j=1
k=0
do while i<=n
if (a(i,j)<=r) and (a(i,j+1)<=r) then
k=k+1
end do
write(*,*)'Kolichestvo tochek v kruge = ',k
i=1
sr=0
do while i<=n
s=sqrt((a(i,j)**2)+(a(i,j+1)**2))
sr=sr+s
end do
sr=sr/n
write(*,*)'Srednee arifmeticheskoe = ',sr
end
Соседние файлы в папке 17var