Practice 2 Write a program that will ask personal questions like: What is your name? How old are you? What is your hobby? Etc. Write at least 5 questions. Then, collect all data and print as one

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

3.1. 200

3.2. for i:1 to 200 do  a[i]:=random(100)-50;

3.3.  (т.к 4 байта)

либо -50 ... 50 (рандом)

3.4. Чтобы значения не "склеивались", т.к было расстояние между элементами

4.1. a[номер элемента] = значение элемента "перенос строки"

4.2. Для подсчета количества элементов равных 20

4.3.  k - она объявлена, но не используется

4.4.  Количество элементов равных 20

5.

var

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

i,n,p,k: integer;

begin

p:=0;

n:=0;

randomize;

for i:1 to 300 do

a[i]:=random(40)-20;

for i:=1 to 300 do

write(a[i],' ');

writeln;

for i:=1 to 300 do

if a[i]=p then

begin

writeln('a[',i,']=',a[i]);

n:=n+1;

end;

writeln;

writeln(n);

end.

ꟷꟷꟷꟷꟷꟷ      

Не забывайте сказать " "! и, если ответ удовлетворил, то выберите его как "Лучший"    

Бодрого настроения и добра!        

Успехов в учебе!