Вопрос по информатике:
1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.09.2016 08:01
- Информатика
- remove_red_eye 6799
- thumb_up 12
Ответы и объяснения 1
Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(51) - 25;
Write(a[i]:4);
end;
Writeln;
Writeln('Результирующий массив');
for i := 1 to n do
begin
if a[i] > 0 then a[i] := a[i] div 2 else a[i] := i;
Write(a[i]:4);
end;
Writeln;
end.
Тестовое решение:
Исходный массив
5 -19 -24 -21 -4 14 -18 -21 2 -14
Результирующий массив
2 2 3 4 5 7 7 8 1 10
- 11.09.2016 00:26
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.