Из текста выбрать числа и записать в массив.

@Artem93 · Регистрация: 28.01.2010

Author24 — интернет-сервис помощи студентам

Из текста выбрать числа и записать в массив. Предполагается, что количество встречающихся чисел не более 10.

Зарание спасибо!

@Law[L]esS · 28.01.2010, 22:01

Pascal

program asd;
const
 n = 10;
 ch = ['1','2','3','4','5','6','7','8','9','0'];
var
 i,c: byte;
 s: string;
 a: array[1..n] of byte;
Begin
 c:= 1;
 readln(s);
 for i:= 1 to length(s) do begin
  if c >= 10 then
   break;
  if s[i] in ch then begin
   val(s[i],a[c]);
   inc(c);
  end;
 end;
 for i:= 1 to n do
  write(a[i],' ');
end.

@o-user · 29.01.2010, 09:45

Сообщение от Law[L]esS

Pascal

program asd;
const
 n = 10;
 ch = ['1','2','3','4','5','6','7','8','9','0'];
...end.

1. Для какого Паскаля эта прграмма написана?
2. В условии задачи речь идет о числах, а не о цифрах!

Ваша программа и с синтаксическими ошибками и не отрабатывает условие задачи! Вы ее сами-то проверяли?

@Artem93 0 / 0 / 0 Регистрация: 28.01.2010 Сообщений: 61
		1
	Из текста выбрать числа и записать в массив. 28.01.2010, 21:41. Показов 1500. Ответов 2 Метки нет (Все метки) Из текста выбрать числа и записать в массив. Предполагается, что количество встречающихся чисел не более 10. Зарание спасибо! 0

	29.01.2010, 09:45

Из текста выбрать числа и записать в массив.

Решение