program arrdiap;
var
N, A, B, i: Integer;
M: array of Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength (M, N);
Randomize;
for i := Low (M) to High (M) do begin
M [i] := Random (100);
Write (M [i], ' ');
end;
WriteLn;
Write ('Введите диапазон A, B: ');
ReadLn (A, B);
WriteLn;
WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');
for i := Low (M) to High (M) do begin
if (M [i] >= A) and (M [i] <= B) then
Write (M [i], ' ');
end;
ReadLn;
end.
1| Объявление переменных a,b и c типа integer (или int, числовые переменные)
2| Начало программы
3| Присваивание значений переменным a,b,c. Всем им присвоили значение 0.
4| Простыми словами: пока a умножить на 2 меньше 200, то
5| Присваивание значений переменным: b = b + 3
6| c = c - 1
7| a = a + b + c. Тут хочу пояснить: при значении этих переменных 0, a = 0 + 3 - 1, т.е. a = 2. Возвращаемся к началу цикла, т.к. 2 * 2 меньше 200: b = 3 + 3; c = -1 - 1; a = 2 + 6 - 2, т.е. 6. И так далее: 12, 20, 30, 42, 56, 72, 90, 110.
8| Конец цикла while (4 строка).
9| Напишем a - 10 (110 - 10 = 100)
10| Конец программы.
Я вообще не знаю Pascal (даже не начинал изучать), поэтому тут могут быть некоторые неточности или слишком заумные слова, надеюсь на понимание :)