Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2009, 10:37   #1
Nubik
Пользователь
 
Регистрация: 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.
Nubik вне форума Ответить с цитированием
Старый 22.12.2009, 10:45   #2
Shaddy_R
 
Регистрация: 22.12.2009
Сообщений: 3
По умолчанию

На сколько я понимаю, программа выводит последнее четное число в количестве, равному числу четных чисел.
Вам нужно сохнанять четные числа в массив, а потом вводить его
Shaddy_R вне форума Ответить с цитированием
Старый 22.12.2009, 11:04   #3
dr.Chas
***
Участник клуба
 
Аватар для dr.Chas
 
Регистрация: 30.07.2007
Сообщений: 1,162
По умолчанию

Код:
program n_3; 
uses crt;
var a: array[1..20] of integer; 
     x,i,n,k:integer; 
begin 
  clrscr;
  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[i]:=x;
    end; 
  end; 
  write('chetnyi chisla ', k,':'); 
  for i:=1 to k do write(a[i]:6); 
  
  repeat 
  until keypressed; 
end.
Познакомтесь с темой в паскале "массивы". И оформляйте код как положено с помощью кнопки #
dr.Chas вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скажите в чем ошибка, как в массиве найти арифметическую прогрессию и вывести элементы на экран? 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