Вопрос по информатике:
Дан одномерный массив целых чисел. Заменить все четные числа в массиве 0.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.07.2016 15:08
- Информатика
- remove_red_eye 2004
- thumb_up 29
Ответы и объяснения 1
Const
n = 20;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln;
Writeln('*** Результирующий массив ***');
for i := 1 to n do
begin
if (x[i] mod 2) = 0 then x[i] := 0;
Write(x[i]:4);
end;
end.
Тестовое решение:
*** Исходный массив ***
-4 -8 42 18 -4 -19 -35 21 19 32 -45 45 -43 -22 -17 -12 11 9 -47 37
*** Результирующий массив ***
0 0 0 0 0 -19 -35 21 19 0 -45 45 -43 0 -17 0 11 9 -47 37
- 13.07.2016 02:10
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.