Вопрос по информатике:
Определить порядковые номера отрицательных элементов одномерного массива a[1..10]
Даю 100 баллов
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.04.2015 00:47
- Информатика
- remove_red_eye 8975
- thumb_up 7
Ответы и объяснения 2
На 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
Пример работы:
- 27.04.2015 19:38
- thumb_up 32
//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.
- 28.04.2015 13:07
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.