C_O_D_E » 16 июн 2008, 21:40
сформировать массив можно таким образом.
Dim A(n),B(n), C(n) As single
Dim i,n,k As Integer
n=inputbox("ВВедите размерность данного массива")
For i=0 to n
a(i)=inputbox("Элемент массива")
b(i)=cos (i^2)
'можно cos(i*i)
c(i)=A(i)/В(i)
print a(i), B(i), C(i)
next i
print
с пояснением на экран.
эта фраза меня слегка смущает, а пояснять собственно что?
считаем, кол-во больше 7
for i=0 to n
If a (i)<7 then k=k+1
If b (i)<7 then k=k+1
If C (i)<7 then k=k+1
next i
print k
[b]сформировать массив можно таким образом. [/b]
Dim A(n),B(n), C(n) As single
Dim i,n,k As Integer
n=inputbox("ВВедите размерность данного массива")
For i=0 to n
a(i)=inputbox("Элемент массива")
b(i)=cos (i^2) [i]'можно cos(i*i)[/i]
c(i)=A(i)/В(i)
print a(i), B(i), C(i)
next i
print
[u][quote] с пояснением на экран.[/quote]
эта фраза меня слегка смущает, а пояснять собственно что?[/u]
[b]
считаем, кол-во больше 7[/b]
for i=0 to n
If a (i)<7 then k=k+1
If b (i)<7 then k=k+1
If C (i)<7 then k=k+1
next i
print k