Составьте программу , которая выводит на экран числа кратные 2 и 7 в диапазоне от 2 до 120

Var k,m,n: longint; begin write('m n ? '); readln(m,n); for k: =(m-1) div 7 + 1 to n div 7 do write(k*7: 8); readln end.

//pascal abc.net v3.1 сборка 1172 var   ar: array[1..15] of integer;   i,k1,k2: integer;   r1,r2: real; begin   randomize;   writeln('array: ');   for i: =1 to 15 do   begin     ar[i]: =random(-20,20);     write(ar[i]: 4);     if i mod 2=0 then       begin         inc(k1);         r1: =r1+ar[i];       end;     if ar[i]> 0 then       begin         inc(k2);         r2: =r2+k2;       end;   end;   r1: =r1/k1;   r2: =r2/k2;   writeln;   if r1> r2 then writeln('среднее арифметическое элементов стоящих на четных местах');   if r1< r2 then writeln('cреднее арифметическое положительных элементов массива');   if r1=r2 then writeln('равно'); end.  

Вформулировке ошибка - не for i: -1 to 5 do, а f or i: =1 to 5 do.теперь к .цикл повторяется 5 раз, значит счётчик i будет иметь значение 1 на первом шаге, 2 на втором, 3 на третьем, 4 на четвёртом и 5 на пятом.в цикле мы обращаемся к элементу одномерного  массива b, чей индекс равен i, то есть на первом шаге мы обратимся к первому элементу массива, на втором - ко второму и так далее. по формуле: 2*i+i. опять же видим, что тут фигурирует наш счётчик цикла i, из чего следует что для первого шага первому элементу массива будет присвоено значение 2*1+1=3. для пятого элемента массива значение будет равно 2*5+5=15.после выхода из цикла мы запрашивается вывод пятого элемента массива b, значение которого задано в цикле и равно 15.ответ: 15