Информатика, 9 класс

Program prim9; Var a: array[1..10] of integer; i: integer; Begin For i:=1 to 10 do if i mod 2 = 1 //проверяем четность индекса; если остаток от деления индекса на 2 равен 1.../ then a[i]:=i //то число нечетное, значит элементу присваиваем индекс/ else a[i]:=3*i; //иначе число четное, значит элементу присваиваем утроенный индекс/ writeln('Полученный массив: '); For i:=1 to 10 do write(a[i], ' ') End.