Измените программу так, чтобы можно было вывести все числа по последовательности, заданной формулой

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

если выполнить для стандартного алфавита с ё, й итд

получится

а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17

р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33

слово компьютер

к=12 -8=4 (д)

о=16-5=11(й)

м=14+1=15(н)

п=17+8=25(ч)

ь=30-23=7(ё)

ю=32-13=19(с)

тер (не меняем)

дйнчёстер

но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!