Вопрос по информатике:
Дано:массивы А(8),В(11). Определить в каком массиве отрицательное число встречается раньше. Номер первого отрицательного элемента в массиве находить в подпрограмме.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.03.2018 23:08
- Информатика
- remove_red_eye 7893
- thumb_up 48
Ответы и объяснения 1
Type
V=array[1..11] of integer;
function FirstNegative(a:V;n:integer):integer;
var
i:integer;
begin
i:=0;
Result:=0;
repeat
i:=i+1;
if a[i]<0 then Result:=i
until (Result>0) or (i>n)
end;
const
m=8;
n=11;
var
a,b:V;
i,p,q:integer;
begin
Randomize;
for i:=1 to m do a[i]:=random(100)-50;
for i:=1 to n do b[i]:=random(100)-50;
p:=FirstNegative(a,m);
q:=FirstNegative(b,n);
writeln('Массив А');
for i:=1 to m do write(a[i]:5);
writeln;
writeln('Массив B');
for i:=1 to n do write(b[i]:5);
writeln;
if p<=q then writeln('Номер первого отрицательного элемента в массива А: ',p)
else writeln('Номер первого отрицательного элемента в массива B: ',q)
end.
Тестовый прогон:
Массив А
37 14 -25 32 30 -29 38 27
Массив B
33 -36 23 -17 -3 -16 -33 33 -48 -39 30
Номер первого отрицательного элемента в массива B: 2
- 08.03.2018 11:18
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.