![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 07.12.2009
Сообщений: 17
|
![]()
Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.
***************************Программ а вводит с клавиатуры число N затем N чисел выводит количество четных чисел, и вместо этих четных чисел какую то ерунду, помогите плиз******************************* *** program n_3; var a: integer; x,i,n,k:integer; begin writeln('vvedite N'); read(n); writeln('************'); k:=0; for i:=1 to n do begin writeln('vvodite chisla'); read(x); if(not(odd(x))) then begin k:=k+1; a:=x; end; end; write('chetnyi chisla ', k,':'); for i:=1 to k do write(a:6); writeln; read; end. Последний раз редактировалось Nubik; 22.12.2009 в 10:49. |
![]() |
![]() |
![]() |
#2 |
Регистрация: 22.12.2009
Сообщений: 3
|
![]()
На сколько я понимаю, программа выводит последнее четное число в количестве, равному числу четных чисел.
Вам нужно сохнанять четные числа в массив, а потом вводить его |
![]() |
![]() |
![]() |
#3 |
***
Участник клуба
Регистрация: 30.07.2007
Сообщений: 1,162
|
![]() Код:
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скажите в чем ошибка, как в массиве найти арифметическую прогрессию и вывести элементы на экран? | Lodyr | Помощь студентам | 0 | 21.12.2009 16:32 |
Паскаль, обработка последовательностей! | Korun | Помощь студентам | 2 | 17.12.2009 17:50 |
задачи: на двумерные массивы,обработку строк,обработку текстовых файлов. (Паскаль) | Yaro | Помощь студентам | 2 | 12.11.2009 12:55 |
Помогите найти в чем ошибка | ice_777 | Microsoft Office Excel | 4 | 13.04.2009 11:22 |
Скажите, в чем моя ошибка в сортировке, или напишите, как правильно сортировать. язык Паскаль. | Devo4ka | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 26.11.2008 00:19 |