строка (занести в массивы - буквы и слова)

[psycho-coder]

Сообщение от Lodyr

вот что выдает \ программа успешно завершена, нажмите любую клавишу = и все, слов не видно в строке вывода...

Странно в аттаче скрин , у меня все нормально работает

    res := Abs(mas2[i] - mas2[i-1]);
    len := Abs(mas2[i] - mas2[i+1]);

я как понимаю вы берете по модулю? но если разность будет такая:
велосипед лежит ё = разность 2 и 1 будет (-4), и разность 3 и 2 будет (-4), по сути не меняют ситуацию.

Арифметическая прогрессия - это когда каждое последующее число больше предыдущего на коэффициент "к". Модуль, что бы знак не учитывать

еще вопрос, почему у нас элементы в массивах с 0 начинаются?
как то можно заменить чтобы от 1 до 10 или до 100

объявить так

mas1: array [1..10] of Integer;
Or
mas1: array [1..100] of Integer;

ClrScr;

== очистка экрана?

Да

 звездочка 32

==как можно ее заменить? на пробел, как Вы писали ранее?

Да (' '). Только не звездочка, а #.

  i, j: Integer;
  res, len: Integer;

==что означает j и rez(получение разности 2 и 1 элемента)?

j = переменная для цикла, т.к. есть один вложенный цикл
res = переменная для сохранения вычислений разности. (len тоже для этого, т.к. она больше не используется)

[Lodyr]

вот такой вопрос, я все еще про эту программу, я хотел написать под свой лад, как вариант решения = используя Вашу программу

program city;
const znp=',.!?:;';{znaki nedopuska}
var a:array [1..10] of string;{massiv slov}
    b:array [1..10] of integer;{massiv bukv}
    s:string;{stroka}
    i,l,beg,d,n,begun,raznost1,raznost2:byte;{I-schetchik simvola v stroke,l-dlina stroki, beg-nachalo slova,d-raznost konca I nachala slova,n-elemanti massivov,begun-scetchik dla massiva bukv, raznost1 – 2 and 1, raznost2 – 3 and 2)
    begin
    readln (s);
    l:=length(s);
    i:=1;
    while (i<=l) do
      begin
      while (i<=l)and(pos(s[i],znp)<>0) do{vhodit v sredy simvilov}
      inc(i);
      beg:=i;{nachalo}
      while (i<=l)and(pos(s[i],znp)=0) do{otlichen ot simvola}
      inc(i);
      d:=i-beg;{naxodim raznost}
      if d>0 then
for n:=1 to 10 do
      a[n]:=copy(s,beg,d);{kopia podstorki dlinoi d, nachinaa s  beg stroki s}
      b[n]:=d;{ta samaa raznost – kolichestvo bukv}
      end;
   begin 
   for n:=1 to 10 do
   write(a[n], ':');
   writeln(b[n]);
   end;
end.

{primerno napisal, ne znau kak bez oshibok}
begun:=1{mesto pervogo elementa simvola}
repeat
i:=begun+1;{nachinaem so 2}
raznost1:=b[i]-b[i-1];
raznost2:=b[i+1]-b[i];
while (i<=10) and (raznost1=raznost2) do
inc(i);
while (i<=10) and (raznost1<>raznost2) do
inc(i);
for n:=begun to i-1 do{vivpisivaem I sootvetstvuem 2 massivy}
writeln(a[n],’ ’);
begun:=i-1;{na novoe mesto razriva}
z:=0;
z:=b[i+2]-b[i+1];{smotrim raznost i sravnivaem do konca massiva}
until (i<=10);

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

Ваша программа хорошая, но боюсь что у меня вопросов будет больше чем ответов.