Определить порядковые номера отрицательных элементов одномерного массива a[1..10] Даю 100 баллов
Определить порядковые номера отрицательных элементов одномерного массива a[1..10]
Даю 100 баллов
Гость
Ответ(ы) на вопрос:
Гостьна VBA:
Sub zad1()
Dim a(9) As Double
Dim otvet As String
'заполним массив случайными числами
Randomize
For i = 0 To 9
a(i) = Fix(Rnd * 100) - 50
otvet = otvet + CStr(i + 1) + ":[" + CStr(a(i)) + "] "
Next i
otvet = otvet + vbCrLf + "<0: "
'найдём отрицательные
For i = 0 To 9
If a(i) < 0 Then otvet = otvet + "[" + CStr(i + 1) + "] "
Next i
'выведем результат
MsgBox (otvet)
End Sub
Пример работы:
Гость//Pascal v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
i:integer;
begin;
for i:=1 to n do
readln(ar[i]);
for i:=1 to n do
if ar[i]<0 then write(i:4);
end.
Не нашли ответ?
Похожие вопросы