Вопрос по информатике:
Дана последовательность натуральных чисел a1,a2,...,an. Создать массив из четных чисел этой последовательности.Если таких чисел нет то, вывести сообщение об этом факте
Можно на языке Паскаля
- 07.12.2017 00:33
- Информатика
- remove_red_eye 4656
- thumb_up 14
Ответы и объяснения 1
Const n=100;
Var a,b:array[1..n] of integer;
I,f,k,j:integer;
Begin
J:=1; f:=0;
For i:=1 to n do begin
Read(a[i]);
If a[i] mod 2=0 then begin f:=1; b[j]:=a[i]; inc(j) end end;
If f=0 then write("net") else for i:=1 to j-1 do write(b[i]," ")
End.
- 08.12.2017 12:48
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.