Паскаль Вывести значение каждого третьего элемента последовательности, начиная с первого.

Пусть в массиве Х[1..MAX] храниться заданная последовательность. Тогда МАХ- количество частей в последовательности. Тогда нижеописанный блок программки дозволит вывести на экран каждый 3-ий элемент. for k:= 1 to MAX do begin if (k mod 3) = 0 then begin writeln( X[k] ); end; end; Строка " for k:= 1 to MAX do" начинает цикл, в тором перебираются все элементы массива (от 1 до МАХ). В строке " if (k mod 3) = 0 " рассчитывается остаток от дробленья номера элемента на "3". И если остаток равен "0", то таковой элемент выводится на экран.