Вопрос по информатике:
Вариант А3: В массиве все элементы, стоящие после нечетных, заменить на 0. Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 0 4 5 0
- 20.09.2015 09:49
- Информатика
- remove_red_eye 14702
- thumb_up 24
Ответы и объяснения 1
Pascal ABC
Const
N = 7;
Var
A:array[1..N]of integer;
i:integer;
Begin
WriteLn('Введи элементы массива');
For i:= 1 to N do
Read(A[i]);
For i:= 2 to N do
Begin
if A[i-1] mod 2 = 1 then A[i]:=0;
Write(A[i-1],' ');
End;
Write(A[N],' ')
End.
- 21.09.2015 08:55
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.