Дан массив из 10 литер. Найти в нём и вывести восьмеричные цифры

[MrDeura]

Помогите пожалуйста, буду премного благодарен

[Poma][a]

Огласите язык

[MrDeura]

Язык - Pascal

[Stilet]

const a:array[1..10] of char=('1','1','1','1','1','1','1','1','1','1');
var i:integer;
begin
 for i:=1 to 10 do if a[i] in ['0'..'8'] then write(a[i]); readln;
end.

[Poma][a]

const
   SIZE = 10;
var
   a : array [1..SIZE] of Char; // лучше константу сделать, а не магическое число
begin
   for i := 1 to SIZE do
       Read(a[i]);
   for i := 1 to SIZE do
       if a[i] in ['0'..'7'] then
          Write(a[i])
end.

[Аватар]

лучше

Чем? Неважно, проехали, дальше интересней

из 10 литер

При чем здесь литры, сижу и пялюсь, не пойму связи между литрами и массивом. Да уж. День такой сегодня, что ли?

[Stilet]

При чем здесь литры

Что, бро, перебрал вискарика в теме о ДНР у Сержа?
А я предупреждал - паленку не гоним ( а перегоняем )

[MrDeura]

Спасибо огромное)

[Poma][a]

Чем? Неважно, проехали, дальше интересней

Не..
Я не про это..
Я решил написать константу, забыл как это делать.. Смотреть лень. Проще написать комментарий.. Дальше шел цикл.. Нужна была константа, пришлось объявить наугад, а коммент я ессесно не потер

Пан Стилет, а ты зря 8-ку взял

[Stilet]

а ты зря 8-ку взял

Да ладно. Густо - не пусто, была бы капуста.