СРОЧНОО Составить программу для решения задачи. Удвоить все нечетные элементы массива. Размерность массива 28
Только основная часть программы: For i:=1 to 28 do begin if A[i] mod 2<>0 then A[i]*=2; end;