Вопрос по информатике:
Дан одномерный массив. Найти номер последнего отрицательного элемента
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.03.2016 08:08
- Информатика
- remove_red_eye 15684
- thumb_up 44
Ответы и объяснения 2
Const n = 10;
var a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random(41)-20;
if a[i]<0 then k:=i;
write(a[i]:4);
end;
writeln;
writeln('Номер последнего отрицательного: ',k);
end.
Тестовое решение:
16 20 2 -2 -15 -8 20 -4 3 4
Номер последнего отрицательного: 8
- 17.03.2016 06:47
- thumb_up 46
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
var i:=a.Length-1;
while (a[i]>=0) and (i>=0) do Dec(i);
if i<0 then Writeln('Нет отрицательных элементов')
else Writeln('i=',i+1)
end.
Тестовое решение:
n= 15
-19 -15 -27 32 -19 -45 -27 39 -28 -15 -35 29 -46 37 44
i=13
- 18.03.2016 22:29
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.