Дан массив A (n). У нечётных элементов отбросить дробную часть числа, а у элементов с индексами, дающими остаток 1 при делении на 3, отбросить целую часть числа.

Как будет выглядеть программа в Паскале?

Основная часть программы:

for i = 0 to n-1 do begin

if i%2 = 0 then

A[i] = A[i] div 1;

if i%3 = 0 then

A[i] = A[i] mod 1;

end;

Программа работает при A[0 ... n-1]

всего чисел в массиве n

Часть кода до этого момента (всё до begin и забивание массива) не пишу, т. к. это очень легко.

Если он понадобится, напишите