Помогите пожалуйста, Строковый тип Опции

[Ludmilka]

Напишите мне пожалуйста задички целимок, мне очень срочно...
1) Дан массив из шести слов. Длина каждого слова не более 10-ти букв. Если слово в массиве нечётной длины, то удалить из него первую букву.
2) Дано предложенгие (записано на одной строке). Напечатать все символы предложения, расположенные после первой запятой (запятые в предложение есть). ПОМОГИТЕЕЕ

[Айра]

А я так поняла, что в 1-й надо еще и контролировать, сколько символов введут. Тогда будет так:

program odin(input,output);
uses wincrt;
var   w: array [1..6] of string;
        i: byte;
begin
for i:=1 to 6 do
  begin
     writeln('введите слово');
     readLn(w[i]);
     while length(w[i])>10 do
       begin
         writeln ('в слове должно быть не больше 10-ти символов. Повторите ввод');
         readln (w[i]);
       end;
     if odd(length(w[i]))=true then delete(w[i],1,1);
     writeln ('получилось: ',w[i],'');
 end;
end.

Сообщение отредактировано: Айра - 12.02.2007 12:49