Вопрос по информатике:
В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. Вывести на экран исходный и преобразованный массивы.
- 10.12.2017 20:07
- Информатика
- remove_red_eye 6612
- thumb_up 27
Ответы и объяснения 1
Const nx = 100;Var i, b, c, n: integer;A:Array[1..nx] of integer;Beginwrite('Введите число элементов массива');Read(n);for i:= 1 to n do beginA[i]:= random(100)-50;write(A[i]:4);end;writeln;for i:= 1 to n do beginif A[i]>0 then A[i]:= A[i]*2elseA[i]:= A[i]-7;write(A[i]:4);end;end.
- 11.12.2017 07:11
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.