КЗ
Ксения Зинченко
Нужно перевести программу из Бейсика в Паскаль.
Private Sub Command1_Click()
Dim a() As Single
Dim b() As Single
Dim c() As Single
Dim nA, nB, nC
nA = InputBox("kol-vo elementov")
ReDim a(1 To nA) As Single
For i = 1 To nA
a(i) = InputBox(i)
Next i
nB = 0
nC = 0
For i = 1 To nA
If (a(i) Mod 2 = 0) Then
nB = nB + 1
ReDim Preserve b(1 To nB) As Single
b(nB) = a(i)
Else
nC = nC + 1
ReDim Preserve c(1 To nC) As Single
c(nC) = a(i)
End If
Next i
For i = 1 To nB
MsgBox (b(i))
Next i
For i = 1 To nC
MsgBox (c(i))
Next i
End Sub