Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5

program zz1;

const n = 25; / / задаем количество элементов в массиве

var i:integer; / / задаем переменную целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел согласно заданному условию и записываем их в массив

if i mod 2 = 0 / / проверяем условие, если номер элемента четный, то

then m[i]:=1 / / в массив пишем 1

else m[i]:=i mod 5; / / иначе, в массив пишем остаток от деления номера на 5

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

end.