Вопрос по информатике:
Дан массив целых чисел из n элементов заполненный случайным образом числами из промежутка (-100 200). найти сумму отрицательных элементов
2) найти номер последней пары соседних элементов с разными знаками)
- 17.12.2017 07:35
- Информатика
- remove_red_eye 11564
- thumb_up 12
Ответы и объяснения 1
Var a: array [1..6] of integer;
i,max1,max2,sum: integer;
begin
Randomize;
for i:=1 to 6 do begin
a[i]:=Random (300)-100;
sum:=sum+a[i];
write(a[i]:4);
end;
for i:=1 to 5 do
if ((a[i]0)) or ((a[i+1]>0) and (a[i]<0)) then begin
max1:=i;
max2:=i+1;
end;
writeln();
Write('Индексы чисел из пары соседних элементов с разными знаками: ',max1,max2:3);
end.
abc pascal
- 18.12.2017 08:43
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.