[Paskal]Одномерные массивы

[1Sol]

Массив А[i] по N. Найти эл. массива, которые при делении нацело на собственный i дают значение > 2. Вывести массив ДО и ПОСЛЕ преобразования.

Как записать деление нацело на i я понял: if a[i] mod i = 0 then
Подскажите плз, как присвоить этому "a[i] mod i = 0" значение ">2"?

[Hacker19_90]

Найти эл. массива, которые при делении нацело на собственный i дают значение > 2.

if ((m[i] div i) > 2) then writeln (m[i])

[1Sol]

забыл дописать:
вывести изменённый массив, в котором эти a[i], кратныe i и >2, заменены результатами их кратности.
например:
n=5
a[1]=1
a[2]=6
a[3]=5
a[4]=8
a[5]=20

a[1]=1
a[2]=3
a[3]=5
a[4]=8
a[5]=4

[Hacker19_90]

в котором эти a[i], кратныe i и >2, заменены результатами их кратности.

if ((m[i] mod i) = 0) and ((m[i] div i) > 2) then m[i] := m[i] div i;

[1Sol]

Сообщение от Hacker19_90

if ((m[i] div i) > 2) then writeln (m[i])

не целая часть деления, а именно если число делится нацело, без (!) остатка, т.е. кратное i.
+ то, что написал выше.

[Hacker19_90]

не целая часть деления, а именно если число делится нацело, без (!) остатка, т.е. кратное i.
+ то, что написал выше.

читай ниже!

[1Sol]

Сообщение от Hacker19_90

читай ниже!

может туплю, но при таком раскладе

...

if ((a[i] mod i) = 0) and ((a[i] div i) > 2) then
a[i] := (a[i] div i);
end;
for i:=1 to n do
begin
writeln('a[',i,']=',a[i]);
end;
end.

результат:
n=4
a[1]=3
a[2]=6
a[3]=5
a[4]=4
a[1]=3
a[2]=6
a[3]=5
a[4]=4

[1Sol]

ступил я, всё работает, спасибо)