1)В массиве У(N) определить количество элементов, являющихся кратными 7 и отрицательными.

[Герман Греф]

Помогите пжлста))

[Герман Греф]

по аналогии делал, но что-то не так, утром сдавать 2 задачи и зачет мой...

[123_]

const
  n = 20;

var
  a: array [1 .. n] of integer;
  i: integer;
  count: integer;

begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(100) - 80;
    if (((a[i] mod 7) = 0) and (a[i] < 0)) then
    begin
      inc(count);
    end;
  end;
  writeln('kol-vo =', count);
  readln;

end.

[Герман Греф]

спасибо но я думал, будет что-то типа Private Sub command click...dim там всякие. Ваш код на бейсике?

[123_]

на паскале

[Герман Греф]

Блин извините, не указал, что на бейсике надо

а на визуал бейсике могёте?



Форум - это не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Редактировать" ("Правка")
и дописывайте в своё сообщение, что Вы хотели добавить!

[Герман Греф]

вот мой код, если есть ошибки исправьте пожалуйста
Private Sub Command1_Click()
Dim a(10) As Single
Dim i, n, k As Integer
n = Val(InputBox("vvedite razmernost massiva"))
For i = o To 10
a(i) = InputBox("element massiva")
Next i
For i = 0 To 10
If a(i) / 7 = a(i) \ 7 And a(i) < 0 Then
k = k + 1
End If
Next i
Print k
End Sub

[KooKish]

Вот набросал. Массив Генирируется автоматически из 10 эл-ов в диапазоне -9 до +9. На вывод идут только отрицательные числа и 7.

Dim Array1(1 To 10) As Integer
Dim i As Integer, j As Integer, n As Integer
Dim s As String
Private Sub Mass()
For i = 1 To 10
j = CInt(Int(9 * Rnd() + 1))
n = CInt(Int(3 * Rnd() - 1))
If n <> 0 Then
j = j * n
End If
Array1(i) = j
Next i
s = ""
For i = 1 To 10
If (Array1(i) Mod 7 = 0) Or (Array1(i) < 0) Then
s = s + " " + CStr(Str(Array1(i)))
End If
Next i
MsgBox (s)
End Sub

P.S. в массив не генерируются 0 !!! я их специально убрал, дабы они часто встречались.

[Герман Греф]

сейчас попробую спс, а на форме что создать?

compile error, подчеркивает первую строчку желтым и dim синим

[KooKish]

Ты не на форму пихай, а на макрос страницы, выводит через MsgBox !!!
(т.е. слева активный макрос должен быть "Страница 1" "Страница 2" или "Страница 3" а не UserForm1. Вот туда и копируй)
На форму сам переделай, делов по сути 0.