Padro
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vk.com/doc78378993_312261232?hash=049411e476f5348d81&dl=c47582a62ca405ad6f
Ребят нужно написать программу, которая будет будет выводить числа: сначала не повторяющиеся, потом повторяющиеся (повторяющиеся числа, считаются числа, которые будут равны или меньше dx)
Добавлено:
вот я пытался сам сделать, но нечего не вышло
program qwqw
real x(8), y(8), z(8)
real dx
integer n,m
n=8
m=8
print*, 'vvedite tochnost sravnenia'
read*, dx
print*, 'vvod vektora'
do i=1,n
print*, 'vvedite ', i, 'iy element'
read*, x(i)
end do
do i=1,n
do j=1,m
if ((Abs((x(i)-y(j))))<=dx) then
y(i)=x(i)
end if
if ((Abs((x(i)-y(j))))>dx) then
z(i)=x(i)
end if
end do
end do
print*, z
print*, y
end |
